소스 검색

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