/usr/lib/gcl-2.6.12/pcl/package.lisp is in gcl 2.6.12-76.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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)
|