Commit 20fdd44b authored by Daniel Kochmański's avatar Daniel Kochmański

contrib: defsystem: fix packages

parent d22bfd0c
Pipeline #52093815 failed with stage
...@@ -887,7 +887,7 @@ ...@@ -887,7 +887,7 @@
(fboundp 'system::require)) (fboundp 'system::require))
#-:lispworks #-:lispworks
(in-package "LISP") (in-package "COMMON-LISP")
#+:lispworks #+:lispworks
(in-package "SYSTEM") (in-package "SYSTEM")
...@@ -1173,16 +1173,16 @@ ...@@ -1173,16 +1173,16 @@
#| #|
#-(or :sbcl :cmu :ccl :allegro :excl :lispworks :symbolics) #-(or :sbcl :cmu :ccl :allegro :excl :lispworks :symbolics)
(eval-when (compile load eval) (eval-when (compile load eval)
(import *exports* #-(or :cltl2 :lispworks) "USER" (import *exports* #-(or :cltl2 :lispworks) "CL-USER"
#+(or :cltl2 :lispworks) "COMMON-LISP-USER") #+(or :cltl2 :lispworks) "COMMON-LISP-USER")
(import *special-exports* #-(or :cltl2 :lispworks) "USER" (import *special-exports* #-(or :cltl2 :lispworks) "CL-USER"
#+(or :cltl2 :lispworks) "COMMON-LISP-USER")) #+(or :cltl2 :lispworks) "COMMON-LISP-USER"))
#+(or :sbcl :cmu :ccl :allegro :excl :lispworks :symbolics) #+(or :sbcl :cmu :ccl :allegro :excl :lispworks :symbolics)
(eval-when (compile load eval) (eval-when (compile load eval)
(import *exports* #-(or :cltl2 :lispworks) "USER" (import *exports* #-(or :cltl2 :lispworks) "CL-USER"
#+(or :cltl2 :lispworks) "COMMON-LISP-USER") #+(or :cltl2 :lispworks) "COMMON-LISP-USER")
(shadowing-import *special-exports* (shadowing-import *special-exports*
#-(or :cltl2 :lispworks) "USER" #-(or :cltl2 :lispworks) "CL-USER"
#+(or :cltl2 :lispworks) "COMMON-LISP-USER")) #+(or :cltl2 :lispworks) "COMMON-LISP-USER"))
|# |#
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment