X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fdebug-dump.lisp;h=434fefeb9965ccc3059c7b86773a969ac92151d6;hb=b19093fa94d6e1785abee99c35c9a610e8777671;hp=008f02dc6b0dc8d185bb2d48b5184ee950415d8a;hpb=82e0a78df47685519b12683f495d7ae19e07d3cf;p=sbcl.git

diff --git a/src/compiler/debug-dump.lisp b/src/compiler/debug-dump.lisp
index 008f02d..434fefe 100644
--- a/src/compiler/debug-dump.lisp
+++ b/src/compiler/debug-dump.lisp
@@ -25,7 +25,8 @@
 ;;; The LOCATION-INFO structure holds the information what we need
 ;;; about locations which code generation decided were "interesting".
 (defstruct (location-info
-	    (:constructor make-location-info (kind label vop)))
+	    (:constructor make-location-info (kind label vop))
+	    (:copier nil))
   ;; The kind of location noted.
   (kind nil :type location-kind)
   ;; The label pointing to the interesting code location.
@@ -99,7 +100,7 @@
 	0)
    *byte-buffer*)
 
-  (let ((loc (if (target-fixnump label) label (label-position label))))
+  (let ((loc (if (fixnump label) label (label-position label))))
     (write-var-integer (- loc *previous-location*) *byte-buffer*)
     (setq *previous-location* loc))
 
@@ -243,7 +244,7 @@
 ;;; we need them or not.
 (defun debug-source-for-info (info)
   (declare (type source-info info))
-  (assert (not (source-info-current-file info)))
+  (aver (not (source-info-current-file info)))
   (mapcar #'(lambda (x)
 	      (let ((res (make-debug-source
 			  :from :file
@@ -251,7 +252,7 @@
 			  :compiled (source-info-start-time info)
 			  :source-root (file-info-source-root x)
 			  :start-positions
-			  (unless (eq *byte-compile* 't)
+			  (unless (eq *byte-compile* t)
 			    (coerce-to-smallest-eltype
 			     (file-info-positions x)))))
 		    (name (file-info-name x)))
@@ -345,7 +346,7 @@
 	(vector-push-extend id buffer)))
     (if tn
 	(vector-push-extend (tn-sc-offset tn) buffer)
-	(assert minimal))
+	(aver minimal))
     (when save-tn
       (vector-push-extend (tn-sc-offset save-tn) buffer)))
   (values))
@@ -414,8 +415,8 @@
   (let ((res (gethash var var-locs)))
     (cond (res)
 	  (t
-	   (assert (or (null (leaf-refs var))
-		       (not (tn-offset (leaf-info var)))))
+	   (aver (or (null (leaf-refs var))
+		     (not (tn-offset (leaf-info var)))))
 	   'deleted))))
 
 ;;;; arguments/returns
@@ -440,7 +441,7 @@
 		(cond (info
 		       (case (arg-info-kind info)
 			 (:keyword
-			  (res (arg-info-keyword info)))
+			  (res (arg-info-key info)))
 			 (:rest
 			  (res 'rest-arg))
 			 (:more-context
@@ -566,7 +567,7 @@
 		 minimal-debug-function-name-symbol)
 		(t
 		 minimal-debug-function-name-packaged))))
-    (assert (or (atom name) setf-p))
+    (aver (or (atom name) setf-p))
     (let ((options 0))
       (setf (ldb minimal-debug-function-name-style-byte options) name-rep)
       (setf (ldb minimal-debug-function-kind-byte options)