1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
;; Copyright (C) 2024 Camm Maguire
(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 :s) :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)
(defstruct slot-object)
|
