X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Freader.lisp;h=69d1a6f9df0da2b50e3a2c486ddb99aefab03575;hb=5edd74f6911093805a009a152b32216b3dba59f7;hp=953ab9272724124a48ca008bb6c7d34a1d8aea16;hpb=45e102d04c2fd1be31ccb9f63d123ea86afb1858;p=sbcl.git

diff --git a/src/code/reader.lisp b/src/code/reader.lisp
index 953ab92..69d1a6f 100644
--- a/src/code/reader.lisp
+++ b/src/code/reader.lisp
@@ -162,8 +162,8 @@
     (replace (character-macro-table really-to-readtable)
 	     (character-macro-table really-from-readtable))
     (setf (dispatch-tables really-to-readtable)
-	  (mapcar #'(lambda (pair) (cons (car pair)
-					 (copy-seq (cdr pair))))
+	  (mapcar (lambda (pair) (cons (car pair)
+				       (copy-seq (cdr pair))))
 		  (dispatch-tables really-from-readtable)))
     (setf (readtable-case really-to-readtable)
 	  (readtable-case really-from-readtable))
@@ -1222,8 +1222,8 @@
 		 (return-from make-float (if negative-fraction
 					     (- num)
 					     num))))))
-	  ;; should never happen:	
-	  (t (error "internal error in floating point reader")))))
+	  ;; should never happen
+	  (t (bug "bad fallthrough in floating point reader")))))
 
 (defun make-float-aux (number divisor float-format)
   (coerce (/ number divisor) float-format))