sfos/ecl
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

contrib: defsystem: fix packages

Browse source
This commit is contained in:
Daniel Kochmański 2019-03-15 20:38:21 +01:00
parent d22bfd0ce1
commit 20fdd44b79
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
contrib/defsystem/defsystem.lisp
View file

@ -887,7 +887,7 @@
(fboundp 'system::require))
#-:lispworks
(in-package "LISP")
(in-package "COMMON-LISP")
#+:lispworks
(in-package "SYSTEM")
@ -1173,16 +1173,16 @@
#|
#-(or :sbcl :cmu :ccl :allegro :excl :lispworks :symbolics)
(eval-when (compile load eval)
(import *exports* #-(or :cltl2 :lispworks) "USER"
(import *exports* #-(or :cltl2 :lispworks) "CL-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 :sbcl :cmu :ccl :allegro :excl :lispworks :symbolics)
(eval-when (compile load eval)
(import *exports* #-(or :cltl2 :lispworks) "USER"
(import *exports* #-(or :cltl2 :lispworks) "CL-USER"
#+(or :cltl2 :lispworks) "COMMON-LISP-USER")
(shadowing-import *special-exports*
#-(or :cltl2 :lispworks) "USER"
#-(or :cltl2 :lispworks) "CL-USER"
#+(or :cltl2 :lispworks) "COMMON-LISP-USER"))
|#