Loading footer.lisp +1 −1 Original line number Diff line number Diff line Loading @@ -27,7 +27,7 @@ (with-upgradability () ;; Hook into CL:REQUIRE. #-clisp (pushnew 'module-provide-asdf *module-provider-functions*) #+clisp (if-let (x (and #+clisp (find-symbol* '#:*module-provider-functions* :custom nil))) #+clisp (if-let (x (find-symbol* '#:*module-provider-functions* :custom nil)) (eval `(pushnew 'module-provide-asdf ,x))) #+(or clasp ecl mkcl) Loading test/asdf-pathname-test.script +1 −1 Original line number Diff line number Diff line Loading @@ -364,7 +364,7 @@ :direction :output :if-exists :supersede :if-does-not-exist :create) (setup-asdftest-logical-host :root root) #+(and asdf-test-logical-pathname) #+asdf-test-logical-pathname (assert-pathname-equal (make-pathname :host "ASDFTEST" :directory '(:absolute "system2" "module4") :name nil :type nil) Loading test/dll-test.lisp +1 −1 Original line number Diff line number Diff line (defpackage :test-asdf/dll-test (:use)) ;; dummy, for package-inferred-system dependencies. #+(and ecl (not clasp)) #+ecl (ffi:clines " extern int sample_function(); Loading test/dll-user.lisp +2 −2 Original line number Diff line number Diff line Loading @@ -2,9 +2,9 @@ (in-package :test-package) #+(and mkcl windows) #+(and mkcl os-windows) (ffi:clines "extern __declspec(dllimport) int sample_function(void);") #-(and mkcl windows) #-(and mkcl os-windows) (ffi:clines "extern int sample_function(void);") (ffi:def-function "sample_function" () :returning :int) test/hello-world-example.asd +1 −1 Original line number Diff line number Diff line Loading @@ -7,7 +7,7 @@ :components ((:file "hello")) #+mkcl ,@`(;;:prefix-lisp-object-files (,(namestring (truename (translate-logical-pathname #P"SYS:cmp.a")))) :extra-build-args ,(or #-windows '(:use-mkcl-shared-libraries nil)) :extra-build-args ,(or #-os-windows '(:use-mkcl-shared-libraries nil)) :class program-system :epilogue-code (progn (setq uiop/image:*image-dumped-p* :executable) Loading Loading
footer.lisp +1 −1 Original line number Diff line number Diff line Loading @@ -27,7 +27,7 @@ (with-upgradability () ;; Hook into CL:REQUIRE. #-clisp (pushnew 'module-provide-asdf *module-provider-functions*) #+clisp (if-let (x (and #+clisp (find-symbol* '#:*module-provider-functions* :custom nil))) #+clisp (if-let (x (find-symbol* '#:*module-provider-functions* :custom nil)) (eval `(pushnew 'module-provide-asdf ,x))) #+(or clasp ecl mkcl) Loading
test/asdf-pathname-test.script +1 −1 Original line number Diff line number Diff line Loading @@ -364,7 +364,7 @@ :direction :output :if-exists :supersede :if-does-not-exist :create) (setup-asdftest-logical-host :root root) #+(and asdf-test-logical-pathname) #+asdf-test-logical-pathname (assert-pathname-equal (make-pathname :host "ASDFTEST" :directory '(:absolute "system2" "module4") :name nil :type nil) Loading
test/dll-test.lisp +1 −1 Original line number Diff line number Diff line (defpackage :test-asdf/dll-test (:use)) ;; dummy, for package-inferred-system dependencies. #+(and ecl (not clasp)) #+ecl (ffi:clines " extern int sample_function(); Loading
test/dll-user.lisp +2 −2 Original line number Diff line number Diff line Loading @@ -2,9 +2,9 @@ (in-package :test-package) #+(and mkcl windows) #+(and mkcl os-windows) (ffi:clines "extern __declspec(dllimport) int sample_function(void);") #-(and mkcl windows) #-(and mkcl os-windows) (ffi:clines "extern int sample_function(void);") (ffi:def-function "sample_function" () :returning :int)
test/hello-world-example.asd +1 −1 Original line number Diff line number Diff line Loading @@ -7,7 +7,7 @@ :components ((:file "hello")) #+mkcl ,@`(;;:prefix-lisp-object-files (,(namestring (truename (translate-logical-pathname #P"SYS:cmp.a")))) :extra-build-args ,(or #-windows '(:use-mkcl-shared-libraries nil)) :extra-build-args ,(or #-os-windows '(:use-mkcl-shared-libraries nil)) :class program-system :epilogue-code (progn (setq uiop/image:*image-dumped-p* :executable) Loading