Jelajahi Sumber

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

Anton Vodonosov 13 tahun lalu
induk
melakukan
5b1dc4bc89
1 mengubah file dengan 1 tambahan dan 1 penghapusan
  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