Commit 9094a0b5 authored by pfdietz's avatar pfdietz

Make portable to cltl1 gcl

parent 354ca7d7
(in-package :common-lisp-user)
#-(and gcl (not ansi-cl)) (in-package :common-lisp-user)
#+(and gcl (not ansi-cl)) (in-package "USER")
#+allegro
(progn
......@@ -7,7 +8,7 @@
(push :lower-case *features*)))
(eval-when (:load-toplevel :compile-toplevel :execute)
(intern "==>" "CL-USER")
;; (intern "==>" "CL-USER")
(unless (fboundp 'compile-file-pathname)
(defun compile-file-pathname (pathname)
(make-pathname :defaults pathname :type "o"))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment