Преглед изворни кода

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

Anton Vodonosov пре 13 година
родитељ
комит
5b1dc4bc89
1 измењених фајлова са 1 додато и 1 уклоњено
  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