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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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"