X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fassem.lisp;h=83c2157c41d87e51a6cafb87021c7a8fe18fb277;hb=dfa55a883f94470267b626dae77ce7e7dfac3df6;hp=a6137b0338f3f6e253e4d2d92d2abd734079e21c;hpb=d147d512602d761a2dcdfded506dd1a8f9a140dc;p=sbcl.git

diff --git a/src/compiler/assem.lisp b/src/compiler/assem.lisp
index a6137b0..83c2157 100644
--- a/src/compiler/assem.lisp
+++ b/src/compiler/assem.lisp
@@ -709,14 +709,7 @@ p	    ;; the branch has two dependents and one of them dpends on
 ;;; necessary.
 (defun emit-byte (segment byte)
   (declare (type segment segment))
-  ;; We could use DECLARE instead of CHECK-TYPE here, but (1) CMU CL's
-  ;; inspired decision to treat DECLARE as ASSERT by default has not
-  ;; been copied by other compilers, and this code runs in the
-  ;; cross-compilation host Common Lisp, not just CMU CL, and (2)
-  ;; classic CMU CL allowed more things here than this, and I haven't
-  ;; tried to proof-read all the calls to EMIT-BYTE to ensure that
-  ;; they're passing appropriate. -- WHN 19990323
-  (check-type byte possibly-signed-assembly-unit)
+  (declare (type possibly-signed-assembly-unit byte))
   (vector-push-extend (logand byte assembly-unit-mask)
 		      (segment-buffer segment))
   (incf (segment-current-posn segment))
@@ -1445,8 +1438,7 @@ p	    ;; the branch has two dependents and one of them dpends on
 			(multiple-value-bind (key var)
 			    (if (consp name)
 				(values (first name) (second name))
-				(values (intern (symbol-name name) :keyword)
-					name))
+				(values (keywordicate name) name))
 			  `(append (and ,supplied-p (list ',key ,var))
 				   ,(grovel state (cdr lambda-list))))))
 		     (&rest