Changeset 11664


Ignore:
Timestamp:
Jan 30, 2009, 11:49:49 AM (10 years ago)
Author:
gb
Message:

Define INVALID-TYPE-SPECIFIER as a subtype of PROGRAM-ERROR.
(Note that there are lots of ways to lose when parsing an alleged
type-specifier, e.g., (INTEGER 1 2 3) will likely lead to a destructuring
error.)

File:
1 edited

Legend:

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

    r11491 r11664  
    191191(define-condition simple-program-error (simple-condition program-error)
    192192  ((context :initarg :context :reader simple-program-error-context :initform nil)))
     193
     194(define-condition invalid-type-specifier (program-error)
     195  ((typespec :initarg :typespec :reader invalid-type-specifier-typespec))
     196  (:report (lambda (c s)
     197             (with-slots (typespec) c
     198               (format s "Invalid type specifier: ~s ." typespec)))))
    193199
    194200(defun signal-program-error (string &rest args)
Note: See TracChangeset for help on using the changeset viewer.