Changeset 718


Ignore:
Timestamp:
Mar 25, 2004, 1:03:10 AM (15 years ago)
Author:
gb
Message:

Fix typo in error message (rededefining non-GF as GF.)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/level-1/l1-clos-boot.lisp

    r643 r718  
    596596    (when (and def (not (typep def 'generic-function)))
    597597      (cerror "Try to remove any global non-generic function or macro definition."
    598               (make-condition 'simple-program-error :format-control "The functio ~s is defined as something other than a generic function." :format-arguments (list function-name)))
     598              (make-condition 'simple-program-error :format-control "The function ~s is defined as something other than a generic function." :format-arguments (list function-name)))
    599599      (fmakunbound function-name)
    600600      (setq def nil))
Note: See TracChangeset for help on using the changeset viewer.