Ignore:
Timestamp:
Mar 21, 2008, 6:32:29 PM (12 years ago)
Author:
gz
Message:

Patch from Hans to add :report to parse-unknown-type

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/l1-typesys.lisp

    r8583 r8854  
    2525;;;
    2626(define-condition parse-unknown-type (condition)
    27   ((specifier :reader parse-unknown-type-specifier :initarg :specifier)))
     27  ((specifier :reader parse-unknown-type-specifier :initarg :specifier))
     28  (:report (lambda (c s) (print-unreadable-object (c s :type t)
     29                           (format s "unknown type ~A" (parse-unknown-type-specifier c))))))
    2830
    2931(defun parse-lambda-list (list)
Note: See TracChangeset for help on using the changeset viewer.