Ver código fonte

ensure CLISP support for stream-read/write-sequence doesn't depend on the curren readtable case

Anton Vodonosov 13 anos atrás
pai
commit
5b1dc4bc89
1 arquivos alterados com 1 adições e 1 exclusões
  1. 1 1
      mixin.lisp

+ 1 - 1
mixin.lisp

@@ -117,7 +117,7 @@
 ;; functions in CLISP
 #+clisp
 (eval-when (:compile-toplevel :load-toplevel :execute)
-  (when (find-symbol "STREAM-READ-SEQUENCE" "GRAY")
+  (when (find-symbol (string #:stream-read-sequence) #:gray)
     (pushnew :clisp-has-stream-read/write-sequence *features*)))
 
 #+clisp