Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Hugo Ishimaru
asdf
Commits
039e7025
Commit
039e7025
authored
Jul 06, 2015
by
Francois-Rene Rideau
Browse files
Merge branch 'master' into minimakefile
parents
0ed8785d
405e2b37
Changes
4
Hide whitespace changes
Inline
Side-by-side
cl-scripting
@
ca2d3443
Compare
177b6ae6
...
ca2d3443
Subproject commit
177b6ae66cf2f96a2560e80ce2622136fd7179a1
Subproject commit
ca2d344357d32973ed342ae4955b4ac153262189
closer-closer-mop
@
ea8e7023
Subproject commit
1bd37b7dd7671ee174f9c00a2490c00c35c3a28
e
Subproject commit
ea8e7023f84e247e1b96cfd8c3831741a58d2b9
e
lisp-invocation
@
0a55ecc1
Compare
9d1a4930
...
0a55ecc1
Subproject commit
9d1a4930b4da48030bb74a80db443b6ec4254712
Subproject commit
0a55ecc11cf564a13f443dd8916d00449b100636
test/test-program.script
View file @
039e7025
...
...
@@ -9,12 +9,6 @@
(trace run-program #+(and sbcl os-windows) sb-ext:run-program)
#+allegro
(defparameter *lisp*
(let ((argv0 (parse-native-namestring (first (raw-command-line-arguments)))))
(or (absolute-pathname-p argv0)
(truename (subpathname #p"sys:" argv0)))))
;; Try to load lisp-invocation from xcvb
(initialize-source-registry
`(:source-registry
...
...
@@ -24,7 +18,7 @@
:inherit-configuration))
(unless (find-system :lisp-invocation nil)
(leave-test "Couldn't find lisp-invocation. Probably your ASDF ext/ directory needs submodule update." 1))
(unless (version-satisfies (find-system "lisp-invocation") "1.0.1
1
")
(unless (version-satisfies (find-system "lisp-invocation") "1.0.1
2
")
(leave-test "Lisp-invocation library isn't new enough to test successfully. Probably your ASDF ext/ directory needs submodule update." 1))
(load-system "lisp-invocation/all")
;; Disable any user source registry.
...
...
@@ -35,7 +29,7 @@
0
(nth-value 2
(lisp-invocation:invoke-lisp
#+allegro :lisp-path #+allegro *lisp*
:implementation-type (lisp-invocation/allegro-variants:current-lisp-variant)
:cross-compile nil
:load (native-namestring (subpathname *test-directory* "make-hello-world.lisp"))
:eval (format nil "(asdf-test::make-hello-~(~a~))" kind)
...
...
@@ -62,7 +56,7 @@
(nest
#+lispworks (last)
(lisp-invocation:invoke-lisp
#+allegro :lisp-path #+allegro *lisp*
:implementation-type (lisp-invocation/allegro-variants:current-lisp-variant)
:cross-compile nil
:image-path (native-namestring img)
:eval "(uiop:restore-image :entry-point 'hello:entry-point :lisp-interaction nil)"
...
...
@@ -73,7 +67,7 @@
#-(or lispworks scl) ;; These can't be passed arguments the normal way
(assert-equal
(lisp-invocation:invoke-lisp
#+allegro :lisp-path #+allegro *lisp*
:implementation-type (lisp-invocation/allegro-variants:current-lisp-variant)
:image-path (native-namestring img)
:cross-compile nil
:eval "(uiop:restore-image :entry-point 'hello:entry-point :lisp-interaction nil)"
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new 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