Changeset 5270

Timestamp:

Sep 27, 2006, 4:34:53 AM (18 years ago)

Author:

Gary Byers

Message:

On x8664, use a new UUO for BUG. (Not passing context into the kernel
makes it too difficult to debug/get backtrace, etc.)

File:

• trunk/ccl/level-0/l0-misc.lisp (modified) (1 diff)

trunk/ccl/level-0/l0-misc.lisp

@@ -80 +80 @@
 (defun bug (arg)
   (if (typep arg 'simple-base-string)
+    #+x8664-target
+    (debug-trap-with-string arg)
+    #-x8664-target
     (let* ((len (length arg)))
       (%stack-block ((buf (1+ len)))