[Advanced-readtable-cvs] r11 -

[rklochkov at common-lisp.net]

Author: rklochkov
Date: Sun Dec 30 06:35:37 2012
New Revision: 11

Log:
Fix

Modified:
   src.lisp

Modified: src.lisp
==============================================================================
--- src.lisp	Sun Dec 30 06:24:44 2012	(r10)
+++ src.lisp	Sun Dec 30 06:35:37 2012	(r11)
@@ -160,8 +160,7 @@
 
 (defun read-after-colon (stream maybe-package colons)
   "Read symbol package:sym or list package:(...)"
-  (declare (type symbol maybe-package)
-           (type stream stream)
+  (declare (type stream stream)
            (type fixnum colons))
   (when (= colons 0) ; no colon: this is a symbol or an atom
     (return-from read-after-colon