Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
A
asdf
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
0
Issues
0
List
Boards
Labels
Service Desk
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Operations
Operations
Incidents
Environments
Analytics
Analytics
CI / CD
Repository
Value Stream
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
Jan Moringen
asdf
Commits
94fec76f
Commit
94fec76f
authored
Mar 05, 2013
by
Francois-Rene Rideau
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Fix upgrade test. Tweak other tests for uiop.
parent
7896e94f
Changes
5
Hide whitespace changes
Inline
Side-by-side
Showing
5 changed files
with
7 additions
and
4 deletions
+7
-4
test/make-hello-world.lisp
test/make-hello-world.lisp
+1
-1
test/script-support.lisp
test/script-support.lisp
+3
-0
test/test-encodings.script
test/test-encodings.script
+1
-1
test/test-program.script
test/test-program.script
+1
-1
test/test-sysdef-asdf.script
test/test-sysdef-asdf.script
+1
-1
No files found.
test/make-hello-world.lisp
View file @
94fec76f
...
...
@@ -6,6 +6,6 @@
(
with-test
()
(
register-directory
*asdf-directory*
)
;; we need asdf-driver, and ECL can dump.
(
register-directory
(
subpathname
*asdf-directory*
"uiop/"
)
)
(
register-directory
*uiop-directory*
)
(
operate
'load-fasl-op
:hello-world-example
)
(
operate
'program-op
:hello-world-example
))
test/script-support.lisp
View file @
94fec76f
...
...
@@ -161,6 +161,8 @@ Some constraints:
(
defun
back-dir
()
#-
gcl
:back
#+
gcl
:parent
)
(
defparameter
*asdf-directory*
(
truename
(
make-sub-pathname
:directory
(
relative-dir
(
back-dir
))
:defaults
*test-directory*
)))
(
defparameter
*uiop-directory*
(
truename
(
make-sub-pathname
:directory
(
relative-dir
"uiop"
)
:defaults
*asdf-directory*
)))
(
defparameter
*build-directory*
(
make-sub-pathname
:directory
(
relative-dir
"build"
)
:defaults
*asdf-directory*
))
(
defparameter
*implementation*
...
...
@@ -326,6 +328,7 @@ is bound, write a message and exit on an error. If
(
defun
load-asdf-system
(
&rest
keys
)
(
quietly
(
register-directory
*asdf-directory*
)
(
register-directory
*uiop-directory*
)
(
apply
(
asym
:oos
)
(
asym
:load-op
)
:asdf
keys
)))
(
defun
call-with-asdf-conditions
(
thunk
&optional
verbose
)
...
...
test/test-encodings.script
View file @
94fec76f
...
...
@@ -64,7 +64,7 @@
;; Try to load asdf-encodings
(setf *central-registry*
(list *asdf-directory* ;; be sure that *OUR* asdf is first of any possible ASDF
(subpathname *asdf-directory* "uiop/") ;; be sure that *OUR* asdf is first of any possible ASDF
*uiop-directory* ;; be sure that ouir uiop is there, too.
;; try finding asdf-encodings it right next to asdf.
(subpathname *asdf-directory* "../asdf-encodings/")))
(unless (find-system :asdf-encodings nil)
...
...
test/test-program.script
View file @
94fec76f
...
...
@@ -16,7 +16,7 @@
;; Try to load lisp-invocation from xcvb
(setf *central-registry*
(list *asdf-directory* ;; be sure that *OUR* asdf is first of any possible ASDF
(subpathname *asdf-directory* "uiop/")
*uiop-directory*
;; try finding xcvb's lisp-invocation right next to asdf.
(subpathname *asdf-directory* "../xcvb/")))
(unless (find-system :lisp-invocation nil)
...
...
test/test-sysdef-asdf.script
View file @
94fec76f
...
...
@@ -7,6 +7,6 @@
(initialize-source-registry
`(:source-registry
(:directory ,*asdf-directory*)
(:directory ,
(subpathname *asdf-directory* "uiop/")
)
(:directory ,
*uiop-directory*
)
:ignore-inherited-configuration))
(load-system :asdf)
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