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
asdf
asdf
Commits
a5476212
Commit
a5476212
authored
Nov 20, 2013
by
Francois-Rene Rideau
Browse files
ABCL: actual working fix to getcwd. Add a test.
CMUCL: hush some warnings
parent
fdadb8ca
Changes
3
Hide whitespace changes
Inline
Side-by-side
test/script-support.lisp
View file @
a5476212
...
...
@@ -36,7 +36,7 @@ Some constraints:
(
declaim
(
optimize
(
speed
2
)
(
safety
#-
gcl
3
#+
gcl
1
)
#-
(
or
allegro
gcl
genera
)
(
debug
3
)
#+
(
or
cmu
scl
)
(
c::brevity
2
)))
(
proclaim
'
(
optimize
(
speed
#-
gcl
2
#+
gcl
1
)
(
safety
#-
gcl
3
#+
gcl
1
)
#-
(
or
allegro
gcl
genera
)
(
debug
3
)
#+
(
or
cmu
scl
)
(
c::brevity
2
)))
#+
(
or
cmu
scl
)
(
c::brevity
2
)
#+
(
or
cmu
scl
)
(
ext:inhibit-warnings
3
)
))
(
defvar
*trace-symbols*
`
(
;; If you want to trace some stuff while debugging ASDF,
...
...
test/test-utilities.script
View file @
a5476212
...
...
@@ -34,8 +34,7 @@
(assert (version-satisfies (find-system :test-asdf) "666"))
(handler-case (version-satisfies (find-system :test-asdf) "666")
(simple-warning (c)
(assert-equal (simple-condition-format-control c)
"Requested version ~S but ~S has no version"))
(assert (search "Requested version ~S but ~S has no version" (simple-condition-format-control c))))
(:no-error (x)
(error "version-satisfies must warn when given component without version")))
(assert (version<= "2.0" (asdf-version)))
...
...
@@ -234,6 +233,8 @@
(assert (not (base-string-p (strcat (basify "ab") #\c *last-char* (unbasify "d")))))
(assert (base-string-p (strcat (basify "ab") #\c #\d))))
(assert-pathname-equal *test-directory* (getcwd))
(assert-equal +crlf+ (map 'string 'code-char '(13 10)))
(assert-equal +lf+ (map 'string 'code-char '(10)))
(assert-equal +cr+ (map 'string 'code-char '(13)))
...
...
uiop/os.lisp
View file @
a5476212
...
...
@@ -246,8 +246,9 @@ suitable for use as a directory name to segregate Lisp FASLs, C dynamic librarie
(
defun
getcwd
()
"Get the current working directory as per POSIX getcwd(3), as a pathname object"
(
or
#+
abcl
(
parse-native-namestring
(
java:jstatic
"getProperty"
"java.lang.System"
"user.dir"
)
:ensure-directory
t
)
(
or
#+
abcl
(
symbol-call
:asdf/filesystem
:parse-native-namestring
(
java:jstatic
"getProperty"
"java.lang.System"
"user.dir"
)
:ensure-directory
t
)
#+
allegro
(
excl::current-directory
)
#+
clisp
(
ext:default-directory
)
#+
clozure
(
ccl:current-directory
)
...
...
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