src/fragment-parse.lisp, src/lexer-{impl,proto}.lisp: Better errors.

[sod] / src / parser / package.lisp

diff --git a/src/parser/package.lisp b/src/parser/package.lisp
index 811440c..e3e363d 100644 (file)
--- a/src/parser/package.lisp
+++ b/src/parser/package.lisp
@@ -29,10 +29,13 @@
 
        ;; Try to find Gray streams support from somewhere.  ECL tucks them
        ;; somewhere unhelpful.
-       #+sbcl #:sb-gray
-       #+cmu #:extensions
-       #+ecl #.(if (find-package '#:gray) '#:gray '#:si)
-       #+clisp #:gray
-       #-(or sbcl cmu ecl clisp) ...))
+       #.(or (car '(#+sbcl #:sb-gray
+                    #+cmu #:extensions
+                    #+ecl #.(if (find-package '#:gray) '#:gray '#:si)
+                    #+clisp #:gray))
+             (error "Unsupported Lisp (can't find Gray streams)")))
+
+  ;; CMUCL's `extensions' package has lots of cruft.  Use our cruft instead.
+  #+cmu (:shadowing-import-from #:sod-utilities #:symbolicate #:once-only))
 
 ;;;----- That's all, folks --------------------------------------------------