Changeset 7730 for branches


Ignore:
Timestamp:
Nov 24, 2007, 6:29:15 PM (17 years ago)
Author:
Gary Byers
Message:

break->error.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/working-0711/ccl/level-1/l1-reader.lisp

    r7608 r7730  
    24812481                              ((functionp (car def))
    24822482                               (funcall (car def) stream firstchar))
    2483                               (t (break "Bogus default dispatch fn: ~S" (car def)) nil)))))))
     2483                              (t (error "Bogus default dispatch fn: ~S" (car def)) nil)))))))
    24842484        (declare (dynamic-extent vals)
    24852485                 (list vals))
Note: See TracChangeset for help on using the changeset viewer.