/[gcl]/gcl/lsp/defpackage.lsp
ViewVC logotype

Diff of /gcl/lsp/defpackage.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.4 by mjthomas, Wed Apr 10 23:09:34 2002 UTC revision 1.5 by camm, Sat Oct 5 18:34:15 2002 UTC
# Line 65  Line 65 
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
# Line 242  Line 246 
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    

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26