Ignore:
Timestamp:
Apr 11, 2006, 12:50:58 PM (13 years ago)
Author:
gb
Message:

Comments.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/level-1/l1-error-signal.lisp

    r2326 r4183  
    4747(defun %err-disp-internal (err-num errargs frame-ptr)
    4848  (declare (fixnum err-num))
    49   ; The compiler (finally !) won't tail-apply error.  But we kind of
    50   ; expect it to ...
     49  ;;; The compiler (finally !) won't tail-apply error.  But we kind of
     50  ;;; expect it to ...
    5151  (let* ((err-typ (max (ash err-num -16) 0))
    5252         (err-num (%word-to-int err-num))
     
    5757  (let* ((condition-name (or (uvref *simple-error-types* err-typ)
    5858                             (%cdr (assq err-num *kernel-simple-error-classes*)))))
    59     ;(dbg format-string)
     59    ;;(dbg format-string)
    6060    (if condition-name     
    6161      (funcall '%error
Note: See TracChangeset for help on using the changeset viewer.