File: package.lisp

package info (click to toggle)
gcl 2.6.14-19
  • links: PTS
  • area: main
  • in suites: forky, sid, trixie
  • size: 60,804 kB
  • sloc: ansic: 177,407; lisp: 151,508; asm: 128,169; sh: 22,510; cpp: 11,923; tcl: 3,181; perl: 2,930; makefile: 2,360; sed: 334; yacc: 226; lex: 95; awk: 30; fortran: 24; csh: 23
file content (21 lines) | stat: -rw-r--r-- 630 bytes parent folder | download | duplicates (6) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
(in-package :user)

(eval-when (compile load eval)

(if (find-package :walker)
    (use-package '(:lisp) :walker)
  (make-package :walker :use '(:lisp)))

(if (find-package :iterate)
    (use-package '(:lisp :walker) :iterate)
    (make-package :iterate :use '(:lisp :walker)))

(if (find-package :pcl)
    (use-package '(:walker :iterate :lisp) :pcl)
    (make-package :pcl :use '(:walker :iterate :lisp))))

(in-package :pcl)
(defvar *the-pcl-package* (find-package :pcl))
(defun load-truename (&optional errorp) *load-pathname*)
(import 'si::(clines defentry defcfun object void int double))
(import 'si::compiler-let :walker)