Added missing quote.

Pascal J. Bourguignon [2018-09-20 20:39]
Added missing quote.
Filename
objcl/objc-support.lisp
diff --git a/objcl/objc-support.lisp b/objcl/objc-support.lisp
index ca033bd..f4b2614 100644
--- a/objcl/objc-support.lisp
+++ b/objcl/objc-support.lisp
@@ -75,7 +75,7 @@
                 (return)))))
       (unless *read-suppress*
         (unless (> (length token) 0)
-          (error reader-error :stream stream)) ; "Invalid token after #/."
+          (error 'reader-error :stream stream)) ; "Invalid token after #/."
         #+ccl(ccl::check-objc-message-name token)
         (intern token "NSFUN"))))
ViewGit