gcl.git - GNU Common Lisp

diff --git a/gcl/lsp/gcl_mislib.lsp b/gcl/lsp/gcl_mislib.lsp
index 08e2e05a9..acb86767c 100755
--- a/gcl/lsp/gcl_mislib.lsp
+++ b/gcl/lsp/gcl_mislib.lsp

@@ -114,13 +114,15 @@

(* (+ h tz) 3600) (* min 60) sec))

(defun compile-file-pathname (pathname)

-(make-pathname :defaults pathname :type "o"))

+ (make-pathname :defaults pathname :type "o"))

+

(defun constantly (x)

-#'(lambda (&rest args)

+ (lambda (&rest args)

(declare (ignore args) (:dynamic-extent args))

-x))

+ x))

+

(defun complement (fn)

-#'(lambda (&rest args) (not (apply fn args))))

+ (lambda (&rest args) (not (apply fn args))))

(defun default-system-banner ()

(let (gpled-modules)