Loading uiop/common-lisp.lisp +2 −1 Original line number Diff line number Diff line Loading @@ -29,10 +29,11 @@ ;;;; Early meta-level tweaks #+(or allegro clasp clisp cmucl ecl mkcl mkcl sbcl) #+(or allegro clasp clisp clozure cmucl ecl mkcl sbcl) (eval-when (:load-toplevel :compile-toplevel :execute) (when (and #+allegro (member :ics *features*) #+(or clasp clisp cmucl ecl mkcl) (member :unicode *features*) #+clozure (member :openmcl-unicode-strings *features*) #+sbcl (member :sb-unicode *features*)) ;; Check for unicode at runtime, so that a hypothetical FASL compiled with unicode ;; but loaded in a non-unicode setting (e.g. on Allegro) won't tell a lie. Loading Loading
uiop/common-lisp.lisp +2 −1 Original line number Diff line number Diff line Loading @@ -29,10 +29,11 @@ ;;;; Early meta-level tweaks #+(or allegro clasp clisp cmucl ecl mkcl mkcl sbcl) #+(or allegro clasp clisp clozure cmucl ecl mkcl sbcl) (eval-when (:load-toplevel :compile-toplevel :execute) (when (and #+allegro (member :ics *features*) #+(or clasp clisp cmucl ecl mkcl) (member :unicode *features*) #+clozure (member :openmcl-unicode-strings *features*) #+sbcl (member :sb-unicode *features*)) ;; Check for unicode at runtime, so that a hypothetical FASL compiled with unicode ;; but loaded in a non-unicode setting (e.g. on Allegro) won't tell a lie. Loading