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
8a550a04
Commit
8a550a04
authored
Nov 05, 2013
by
Francois-Rene Rideau
Browse files
Slightly better GCL support, thanks to Camm Maguire. Still not there, though.
parent
f2349e62
Changes
4
Hide whitespace changes
Inline
Side-by-side
test/script-support.lisp
View file @
8a550a04
...
...
@@ -33,9 +33,9 @@ Some constraints:
(
in-package
:asdf-test
)
(
declaim
(
optimize
(
speed
2
)
(
safety
3
)
#-
(
or
allegro
gcl
genera
)
(
debug
3
)
(
declaim
(
optimize
(
speed
2
)
(
safety
#-
gcl
3
#+
gcl
0
)
#-
(
or
allegro
gcl
genera
)
(
debug
3
)
#+
(
or
cmu
scl
)
(
c::brevity
2
)))
(
proclaim
'
(
optimize
(
speed
2
)
(
safety
3
)
#-
(
or
allegro
gcl
genera
)
(
debug
3
)
(
proclaim
'
(
optimize
(
speed
2
)
(
safety
#-
gcl
3
#+
gcl
0
)
#-
(
or
allegro
gcl
genera
)
(
debug
3
)
#+
(
or
cmu
scl
)
(
c::brevity
2
)))
(
defvar
*trace-symbols*
...
...
test/test-run-program.script
View file @
8a550a04
;; -*- Lisp -*-
(declaim (optimize (debug 3) (safety
3
)))
(declaim (optimize (debug 3) (safety
#-gcl 3 #+gcl 0
)))
;; On Windows, normalize away CRLF into jut the unixy LF.
(defun dewindowize (x)
...
...
uiop/common-lisp.lisp
View file @
8a550a04
...
...
@@ -172,7 +172,7 @@ FROB them, that is to say, remove them if FROB is NIL,
replace by FROB if FROB is a STRING, or if FROB is a FUNCTION,
call FROB with the match and a function that emits a string in the output.
Return a string made of the parts not omitted or emitted by FROB."
(
declare
(
optimize
(
speed
0
)
(
safety
3
)
(
debug
3
)))
(
declare
(
optimize
(
speed
0
)
(
safety
#-
gcl
3
#+
gcl
0
)
(
debug
3
)))
(
let
((
length
(
length
string
))
(
stream
nil
))
(
labels
((
emit-string
(
x
&optional
(
start
0
)
(
end
(
length
x
)))
(
when
(
<
start
end
)
...
...
uiop/pathname.lisp
View file @
8a550a04
...
...
@@ -102,8 +102,8 @@ by the underlying implementation's MAKE-PATHNAME and other primitives"
;; See CLHS make-pathname and 19.2.2.2.3.
;; This will be :unspecific if supported, or NIL if not.
(
defparameter
*unspecific-pathname-type*
#+
(
or
abcl
allegro
clozure
cmu
gcl
genera
lispworks
mkcl
sbcl
scl
xcl
)
:unspecific
#+
(
or
clisp
ecl
#|These haven't been tested:|#
cormanlisp
mcl
)
nil
#+
(
or
abcl
allegro
clozure
cmu
genera
lispworks
mkcl
sbcl
scl
xcl
)
:unspecific
#+
(
or
clisp
ecl
gcl
#|These haven't been tested:|#
cormanlisp
mcl
)
nil
"Unspecific type component to use with the underlying implementation's MAKE-PATHNAME"
)
(
defun
make-pathname*
(
&rest
keys
&key
(
directory
nil
#+
gcl2.6
directoryp
)
...
...
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