Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Jan Moringen
asdf
Commits
feafa5c5
Commit
feafa5c5
authored
Feb 20, 2013
by
Francois-Rene Rideau
Browse files
Remove some debugging code from script-support.lisp
parent
8cc46b8e
Changes
1
Hide whitespace changes
Inline
Side-by-side
test/script-support.lisp
View file @
feafa5c5
...
...
@@ -155,7 +155,6 @@ Some constraints:
(
truename
(
make-pathname
:name
nil
:type
nil
:version
nil
: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
)
(
merge-pathnames
(
apply
'make-pathname
keys
)
defaults
))
(
defun
relative-dir
(
&rest
dir
)
#-
gcl
(
cons
'
:relative
dir
)
#+
gcl
dir
)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment