6 |
(when (eq excl:*current-case-mode* :case-sensitive-lower) |
(when (eq excl:*current-case-mode* :case-sensitive-lower) |
7 |
(push :lower-case *features*))) |
(push :lower-case *features*))) |
8 |
|
|
9 |
(eval-when (load eval compile) |
(eval-when #+gcl (load eval compile) |
10 |
|
#-gcl (:load-toplevel :compile-toplevel :execute) |
11 |
(intern "==>" "CL-USER") |
(intern "==>" "CL-USER") |
12 |
(unless (fboundp 'compile-file-pathname) |
(unless (fboundp 'compile-file-pathname) |
13 |
(defun compile-file-pathname (pathname) |
(defun compile-file-pathname (pathname) |