From: William Harold Newman <william.newman@airmail.net>
Date: Wed, 12 Dec 2001 03:26:57 +0000 (+0000)
Subject: 0.pre7.86.flaky7.27:
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=56ce3857f7830670d55d2fe17246353dff2e71f7;p=sbcl.git

0.pre7.86.flaky7.27:
	(Now DISASSEMBLE 'PRINT produces reasonable-looking output.
		In fact, AFAIK it's not flaky any more, so it should
		(finally!) be mergeable back into the main branch.)
	made GET-FUNCTION-SEGMENTS return a list (as its comments
		claim it does, and as its callers expect) even in the
		(NULL SEGMENTS) case
	renamed DEFUN REQUIRED-ARG to be consistent with all the
		previously-renamed MISSING-ARG calls
---

diff --git a/TODO b/TODO
index b7e98cc..b56ab35 100644
--- a/TODO
+++ b/TODO
@@ -5,10 +5,6 @@ for 0.7.0:
 	leaving some filing for later:-) from the monster
 	EVAL/EVAL-WHEN/%COMPILE/DEFUN/DEFSTRUCT cleanup:
 	** made inlining DEFUN inside MACROLET work again
-	** made %COMPILE set up debugging data more like the way the
-		debugger expects (and maybe even completely
-		correctly:-)
-		*** made (DISASSEMBLE 'PRINT) work
 * incompatible changes listed in NEWS:
 	** changed debugger prompt to "5]", "5[2]", "5[3]", etc.
 	** changed default output representation of *PRINT-ESCAPE*-ed
diff --git a/src/code/early-extensions.lisp b/src/code/early-extensions.lisp
index eb21f3a..b7d82b6 100644
--- a/src/code/early-extensions.lisp
+++ b/src/code/early-extensions.lisp
@@ -689,10 +689,10 @@
 ;;; error indicating that a required &KEY argument was not supplied.
 ;;; This function is also useful for DEFSTRUCT slot defaults
 ;;; corresponding to required arguments.
-(declaim (ftype (function () nil) required-arg))
-(defun required-arg ()
+(declaim (ftype (function () nil) missing-arg))
+(defun missing-arg ()
   #!+sb-doc
-  (/show0 "entering REQUIRED-ARG")
+  (/show0 "entering MISSING-ARG")
   (error "A required &KEY or &OPTIONAL argument was not supplied."))
 
 ;;; like CL:ASSERT and CL:CHECK-TYPE, but lighter-weight
diff --git a/src/code/package.lisp b/src/code/package.lisp
index 7c6fc3b..8af6ad8 100644
--- a/src/code/package.lisp
+++ b/src/code/package.lisp
@@ -35,10 +35,10 @@
 (sb!xc:defstruct (package-hashtable (:constructor %make-package-hashtable ())
 				    (:copier nil))
   ;; The g-vector of symbols.
-  ;; FIXME: could just be type SIMPLE-VECTOR, with REQUIRED-ARG
+  ;; FIXME: could just be type SIMPLE-VECTOR, with (MISSING-ARG) default
   (table nil :type (or simple-vector null))
   ;; The i-vector of pname hash values.
-  ;; FIXME: could just be type HASH-VECTOR, with REQUIRED-ARG
+  ;; FIXME: could just be type HASH-VECTOR, with (MISSING-ARG) default
   (hash nil :type (or hash-vector null))
   ;; The total number of entries allowed before resizing.
   ;;
diff --git a/src/code/type-class.lisp b/src/code/type-class.lisp
index fecb40f..a2d889b 100644
--- a/src/code/type-class.lisp
+++ b/src/code/type-class.lisp
@@ -36,7 +36,7 @@
 			      (print-unreadable-object (x stream :type t)
 				(prin1 (type-class-name x) stream)))))
   ;; the name of this type class (used to resolve references at load time)
-  (name nil :type symbol) ; FIXME: should perhaps be REQUIRED-ARG?
+  (name nil :type symbol) ; FIXME: should perhaps be (MISSING-ARG) default?
   ;; Dyadic type methods. If the classes of the two types are EQ, then
   ;; we call the SIMPLE-xxx method. If the classes are not EQ, and
   ;; either type's class has a COMPLEX-xxx method, then we call it.
diff --git a/src/compiler/target-disassem.lisp b/src/compiler/target-disassem.lisp
index adb55af..8789353 100644
--- a/src/compiler/target-disassem.lisp
+++ b/src/compiler/target-disassem.lisp
@@ -1373,7 +1373,8 @@
 		     last-debug-fun))
 	  (if (null segments)
 	      (let ((offs (fun-insts-offset function)))
-		(make-code-segment code offs (- max-offset offs)))
+		(list 
+		 (make-code-segment code offs (- max-offset offs))))
 	      (nreverse segments)))))))
 
 ;;; Return a list of the segments of memory containing machine code
diff --git a/version.lisp-expr b/version.lisp-expr
index d28920b..e85c6ad 100644
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -18,4 +18,4 @@
 ;;; for internal versions, especially for internal versions off the
 ;;; main CVS branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
 
-"0.pre7.86.flaky7.26"
+"0.pre7.86.flaky7.27"