65 |
;;; |
;;; |
66 |
;;; ----------------------------------------------------------------- |
;;; ----------------------------------------------------------------- |
67 |
|
|
68 |
|
|
69 |
(lisp:in-package :DEFPACKAGE) |
(lisp:in-package :DEFPACKAGE) |
70 |
|
|
71 |
(export '(defpackage)) |
(export '(defpackage)) |
72 |
|
;(provide :defpackage) |
73 |
|
|
74 |
(use-package :SLOOP) |
(use-package :SLOOP) |
75 |
|
;(use-package :DEFPACKAGE) |
76 |
|
|
77 |
(proclaim '(declaration values arglist)) |
(proclaim '(declaration values arglist)) |
78 |
|
|
79 |
|
|
80 |
;#-gcl |
;#-gcl |
81 |
;(eval-when (compile load eval) |
;(eval-when (compile load eval) |
82 |
; #-lispm |
; #-lispm |
246 |
; (get (intern (string symbol) :keyword) ':package-documentation)) |
; (get (intern (string symbol) :keyword) ':package-documentation)) |
247 |
; (values :do-it)))) |
; (values :do-it)))) |
248 |
|
|
249 |
|
;(pushnew :defpackage *features*) |
250 |
|
;(unintern 'defpackage 'user) |
251 |
|
|
252 |
(provide :defpackage) |
(provide :defpackage) |
253 |
(pushnew :defpackage *features*) |
(pushnew :defpackage *features*) |
254 |
|
|