[Openmcl-cvs-notifications] r14755 - /trunk/source/level-1/l1-error-signal.lisp

[gb at clozure.com]

Author: gb
Date: Fri Apr 29 15:29:30 2011
New Revision: 14755

Log:
Remove a (commented out) Trip Down Memory Lane.

Modified:
    trunk/source/level-1/l1-error-signal.lisp

Modified: trunk/source/level-1/l1-error-signal.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/level-1/l1-error-signal.lisp (original)
+++ trunk/source/level-1/l1-error-signal.lisp Fri Apr 29 15:29:30 2011
@@ -119,11 +119,6 @@
 (defun error (condition &rest args)
   "Invoke the signal facility on a condition formed from DATUM and ARGUMEN=
TS.
   If the condition is not handled, the debugger is invoked."
-  #|
-  #+ppc-target
-  (with-pstrs ((pstr (if (stringp condition) condition "Error")))
-    (#_DebugStr pstr))
-  |#
   (%error condition args (%get-frame-ptr)))
 =

 (defun cerror (cont-string condition &rest args)