Corrected symbol case with intern call.

Pascal J. Bourguignon [2013-03-15 22:54]
Corrected symbol case with intern call.
Filename
streams.lisp
diff --git a/streams.lisp b/streams.lisp
index 5a8c752..5b7c4ea 100644
--- a/streams.lisp
+++ b/streams.lisp
@@ -236,7 +236,7 @@ DO:     Specifies the name and parameter list of methods.
          (cl-forward        (caar  (gethash 'cl-forward        declarations)))
          (check-open-p      (caar  (gethash 'check-open-p      declarations)))
          (lambda-list       (parse-lambda-list arguments :ordinary))
-         (m-name            (intern (format nil "%~A" name)))
+         (m-name            (intern (format nil "%~A" (string name))))
          (cl-name           (intern (string name) "COMMON-LISP")))
     `(progn
        (eval-when (:compile-toplevel :load-toplevel :execute)
ViewGit