src/method-aggregate.lisp: Allow useful behaviour if no primary methods.

[sod] / src / parser / package.lisp

diff --git a/src/parser/package.lisp b/src/parser/package.lisp
index 6439f62..623c297 100644 (file)
--- a/src/parser/package.lisp
+++ b/src/parser/package.lisp
@@ -7,7 +7,7 @@
 
 ;;;----- Licensing notice ---------------------------------------------------
 ;;;
-;;; This file is part of the Sensble Object Design, an object system for C.
+;;; This file is part of the Sensible Object Design, an object system for C.
 ;;;
 ;;; SOD is free software; you can redistribute it and/or modify
 ;;; it under the terms of the GNU General Public License as published by
@@ -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 --------------------------------------------------