X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Farray.lisp;h=0a76afaae608399d669df13df3f69b1994513039;hb=01044af1b8d69fc3899dc0417064c1512223223d;hp=733b8c36b735f03c19e1379156c7384e81a73ae8;hpb=084168e1524a6493bc0f9d1697753d31239b158d;p=sbcl.git

diff --git a/src/code/array.lisp b/src/code/array.lisp
index 733b8c3..0a76afa 100644
--- a/src/code/array.lisp
+++ b/src/code/array.lisp
@@ -643,7 +643,9 @@
     (declare (fixnum fill-pointer))
     (when (= fill-pointer (%array-available-elements vector))
       (adjust-array vector (+ fill-pointer extension)))
-    (setf (aref vector fill-pointer) new-element)
+    ;; disable bounds checking
+    (locally (declare (optimize (safety 0)))
+      (setf (aref vector fill-pointer) new-element))
     (setf (%array-fill-pointer vector) (1+ fill-pointer))
     fill-pointer))
 
@@ -656,9 +658,12 @@
     (declare (fixnum fill-pointer))
     (if (zerop fill-pointer)
 	(error "There is nothing left to pop.")
-	(aref array
-	      (setf (%array-fill-pointer array)
-		    (1- fill-pointer))))))
+	;; disable bounds checking (and any fixnum test)
+	(locally (declare (optimize (safety 0)))
+	  (aref array
+		(setf (%array-fill-pointer array)
+		      (1- fill-pointer)))))))
+
 
 ;;;; ADJUST-ARRAY