Changeset 5272

Timestamp:

Sep 27, 2006, 4:36:14 AM (18 years ago)

Author:

Gary Byers

Message:

DEBUG-TRAP-WITH-STRING.

File:

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

trunk/ccl/level-0/X86/x86-misc.lisp

@@ -695 +695 @@
   (single-value-return))
 
+
+(defx86lapfunction debug-trap-with-string ((arg arg_z))
+  (check-nargs 1)
+  (uuo-error-debug-trap-with-string)
+  (single-value-return))
+
 ;;; end of x86-misc.lisp