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