Skip to content
Snippets Groups Projects
Commit feafa5c5 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

Remove some debugging code from script-support.lisp

parent 8cc46b8e
No related branches found
No related tags found
No related merge requests found
...@@ -155,7 +155,6 @@ Some constraints: ...@@ -155,7 +155,6 @@ Some constraints:
(truename (truename
(make-pathname :name nil :type nil :version nil (make-pathname :name nil :type nil :version nil
:defaults (or *load-pathname* *compile-file-pathname* *default-pathname-defaults*)))) :defaults (or *load-pathname* *compile-file-pathname* *default-pathname-defaults*))))
(format t "bye, world~%")
(defun make-sub-pathname (&rest keys &key defaults &allow-other-keys) (defun make-sub-pathname (&rest keys &key defaults &allow-other-keys)
(merge-pathnames (apply 'make-pathname keys) defaults)) (merge-pathnames (apply 'make-pathname keys) defaults))
(defun relative-dir (&rest dir) #-gcl (cons ':relative dir) #+gcl dir) (defun relative-dir (&rest dir) #-gcl (cons ':relative dir) #+gcl dir)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment