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
Eric Timmons
asdf
Commits
cba25d4f
Commit
cba25d4f
authored
Dec 20, 2013
by
Francois-Rene Rideau
Browse files
Fix upgrade issue with CLISP from 2.27 to 2.31.
Why is this somehow not affecting other implementations???
parent
0066c48a
Changes
2
Hide whitespace changes
Inline
Side-by-side
test/script-support.lisp
View file @
cba25d4f
...
...
@@ -83,7 +83,6 @@ Some constraints:
(
when
errorp
(
error
"Can't find package ~A"
pname
)))))
(
defun
acall
(
name
&rest
args
)
(
apply
(
apply
'asym
(
if
(
consp
name
)
name
(
list
name
)))
args
))
(
defun
ucall
(
name
&rest
args
)
(
apply
(
asym
name
:uiop
)
args
))
(
defun
asymval
(
name
&optional
package
)
(
symbol-value
(
asym
name
package
)))
(
defsetf
asymval
(
name
&optional
package
)
(
new-value
)
...
...
@@ -143,7 +142,7 @@ Some constraints:
(
cond
((
equal
x
y
)
(
format
t
"~S and~% ~S both evaluate to same path:~% ~S~%"
qx
qy
x
))
((
u
call
:pathname-equal
x
y
)
((
a
call
:pathname-equal
x
y
)
(
warn
"These two expressions yield pathname-equal yet not equal path~%~
the first expression ~S yields this:~% ~S~% ~S~%
the other expression ~S yields that:~% ~S~% ~S~%"
...
...
@@ -251,10 +250,10 @@ Some constraints:
(
decode-universal-time
stamp
)
(
unless
in-filesystem
(
error
"Y U NO use stamp cache?"
))
(
u
call
:run-program
(
a
call
:run-program
`
(
"touch"
"-t"
,
(
format
nil
"~4,'0D~2,'0D~2,'0D~2,'0D~2,'0D.~2,'0D"
year
month
day
hr
min
sec
)
,
(
u
call
:native-namestring
file
)))
,
(
a
call
:native-namestring
file
)))
(
assert-equal
(
file-write-date
file
)
stamp
)))))
(
defun
mark-file-deleted
(
file
)
(
unless
(
asymval
:*asdf-cache*
)
(
error
"Y U NO use asdf cache?"
))
...
...
@@ -319,7 +318,7 @@ is bound, write a message and exit on an error. If
(
break
))
(
t
(
ignore-errors
(
u
call
:print-condition-backtrace
(
a
call
:print-condition-backtrace
c
:count
69
:stream
*error-output*
))
(
leave-test
"Script failed"
1
))))))
(
funcall
(
or
(
asym
:call-with-asdf-cache
)
'funcall
)
thunk
)
...
...
@@ -528,8 +527,7 @@ is bound, write a message and exit on an error. If
(
format
t
"Being a bit verbose~%"
)
(
when
(
asym
:*asdf-verbose*
)
(
setf
(
asymval
:*asdf-verbose*
)
t
))
(
when
(
asym
:*verbose-out*
)
(
setf
(
asymval
:*verbose-out*
)
*standard-output*
))
(
when
(
and
(
asym
:locate-system
)
(
asym
:pathname-directory-pathname
)
(
asym
:pathname-equal
))
(
when
(
and
(
asym
:locate-system
)
(
asym
:pathname-directory-pathname
)
(
asym
:pathname-equal
))
(
format
t
"Comparing directories~%"
)
(
let
((
x
(
acall
:pathname-directory-pathname
(
nth-value
2
(
acall
:locate-system
:test-asdf
)))))
(
assert-pathname-equal-helper
;; not always EQUAL (!)
...
...
uiop/package.lisp
View file @
cba25d4f
...
...
@@ -734,10 +734,7 @@ UNINTERN -- Remove symbols here from PACKAGE."
(
let
((
ensure-form
`
(
apply
'ensure-package
',
(
parse-define-package-form
package
clauses
))))
`
(
progn
#+
clisp
(
eval-when
(
:compile-toplevel
:load-toplevel
:execute
)
,
ensure-form
)
#+
(
or
clisp
ecl
gcl
)
(
defpackage
,
package
(
:use
))
#+
(
or
ecl
gcl
)
(
defpackage
,
package
(
:use
))
(
eval-when
(
:compile-toplevel
:load-toplevel
:execute
)
,
ensure-form
))))
...
...
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