Explorar o código

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

Anton Vodonosov %!s(int64=13) %!d(string=hai) anos
pai
achega
5b1dc4bc89
Modificáronse 1 ficheiros con 1 adicións e 1 borrados
  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