diff --git a/sys/defsystem.lisp b/sys/defsystem.lisp index 5222b471ea7732f6ede4b21e9029cbdc9dc7db75..9a4e3b1228f05c319a0610ff1a159c4f0212fd1c 100644 --- a/sys/defsystem.lisp +++ b/sys/defsystem.lisp @@ -491,7 +491,7 @@ Something is wrong if this warning appears!")) #+xerox (pathname *standard-input*) #+Genera sys:fdefine-file-pathname #+Minima *load-pathname* - #+ansi-cl *load-pathanme* + #+ansi-cl *load-pathname* #-(or Lucid Allegro xerox Genera Minima ansi-cl) nil) (defvar *current-system* nil