[Sbcl-commits] CVS: sbcl/src/compiler compiler-deftype.lisp, 1.10, 1.11 main.lisp, 1.142, 1.143

[Nikodemus S. <de...@us...>]

Update of /cvsroot/sbcl/sbcl/src/compiler
In directory fdv4jf1.ch3.sourceforge.com:/tmp/cvs-serv9976/src/compiler

Modified Files:
	compiler-deftype.lisp main.lisp 
Log Message:
1.0.29.38: better DESCRIBE

* Rework DESCRIBE for more comprehensive reporting and
  easier to read output.

* Delete src/pcl/describe.lisp, no PCL leftovers in the new DESCRIBE
  except for some heritage in DESCRIBE-INSTANCE.

* Fix COMPILED timestamps: we want both internal-real and universal
  time for different use-cases. (Though I'm not sure if we really care
  about the COMPILED timestamps that much, especially now that I
  unilaterally removed their printing from DESCRIBE.)

* Give primitive type transform functions the lambda-list of the type.


Index: compiler-deftype.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/compiler/compiler-deftype.lisp,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -d -r1.10 -r1.11
--- compiler-deftype.lisp	1 Dec 2008 07:40:08 -0000	1.10
+++ compiler-deftype.lisp	25 Jun 2009 09:40:22 -0000	1.11
@@ -50,8 +50,8 @@
   ;; ### Bootstrap hack -- we need to define types before %NOTE-TYPE-DEFINED
   ;; is defined. (FIXME: Do we still need to do this? -- WHN 19990310)
   (if (fboundp 'sb!c::%note-type-defined)
-    (sb!c::%note-type-defined name)
-    (warn "defining type before %NOTE-TYPE-DEFINED is defined"))
+      (sb!c::%note-type-defined name)
+      (warn "defining type before %NOTE-TYPE-DEFINED is defined"))
   name)
 
 (/show0 "compiler-deftype.lisp end of file")

Index: main.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/compiler/main.lisp,v
retrieving revision 1.142
retrieving revision 1.143
diff -u -d -r1.142 -r1.143
--- main.lisp	11 May 2009 15:44:11 -0000	1.142
+++ main.lisp	25 Jun 2009 09:40:22 -0000	1.143
@@ -778,7 +778,9 @@
                               (print-unreadable-object (s stream :type t))))
              (:copier nil))
   ;; the UT that compilation started at
-  (start-time (get-internal-real-time) :type unsigned-byte)
+  (start-time (get-internal-real) :type unsigned-byte)
+  ;; the IRT that compilation started at
+  (start-real-time (get-internal-real-time) :type unsigned-byte)
   ;; the FILE-INFO structure for this compilation
   (file-info nil :type (or file-info null))
   ;; the stream that we are using to read the FILE-INFO, or NIL if
@@ -1654,7 +1656,7 @@
                    won
                    (elapsed-time-to-string
                     (- (get-internal-real-time)
-                       (source-info-start-time source-info))))
+                       (source-info-start-real-time source-info))))
   (values))
 
 ;;; Open some files and call SUB-COMPILE-FILE. If something unwinds