Changeset 718

Timestamp:

Mar 24, 2004, 5:03:10 PM (21 years ago)

Author:

Gary Byers

Message:

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

File:

• trunk/ccl/level-1/l1-clos-boot.lisp (modified) (1 diff)

trunk/ccl/level-1/l1-clos-boot.lisp

@@ -596 +596 @@
     (when (and def (not (typep def 'generic-function)))
       (cerror "Try to remove any global non-generic function or macro definition."
-              (make-condition 'simple-program-error :format-control "The functio ~s is defined as something other than a generic function." :format-arguments (list function-name)))
+              (make-condition 'simple-program-error :format-control "The function ~s is defined as something other than a generic function." :format-arguments (list function-name)))
       (fmakunbound function-name)
       (setq def nil))