X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcode%2Fdebug.lisp;h=4943a5120bd926ff39a03b1cdb214f62a0914aec;hb=86210c4e406c1b2ff10cc3bac0e71435867db48b;hp=7343ada9d74d50fee51fdedf1321a975ef6742b1;hpb=8286d1fc02d1e769a766fbf1670bca474237161f;p=sbcl.git

diff --git a/src/code/debug.lisp b/src/code/debug.lisp
index 7343ada..4943a51 100644
--- a/src/code/debug.lisp
+++ b/src/code/debug.lisp
@@ -492,12 +492,11 @@ Function and macro commands:
 ) ; EVAL-WHEN
 
 ;;; This is used in constructing arg lists for debugger printing when
-;;; the arg list is unavailable, some arg is unavailable or unused,
-;;; etc.
+;;; the arg list is unavailable, some arg is unavailable or unused, etc.
 (defstruct (unprintable-object
 	    (:constructor make-unprintable-object (string))
 	    (:print-object (lambda (x s)
-			     (print-unreadable-object (x s :type t)
+			     (print-unreadable-object (x s)
 			       (write-string (unprintable-object-string x)
 					     s))))
 	    (:copier nil))
@@ -617,7 +616,9 @@ Function and macro commands:
     (when old-hook
       (let ((*debugger-hook* nil))
 	(funcall old-hook condition old-hook))))
-  (sb!unix:unix-sigsetmask 0)
+  ;; FIXME: No-one seems to know what this is for. Nothing is noticeably
+  ;; broken on sunos...
+  #!-sunos (sb!unix:unix-sigsetmask 0)
 
   ;; Elsewhere in the system, we use the SANE-PACKAGE function for
   ;; this, but here causing an exception just as we're trying to handle