/usr/share/maxima/5.41.0/src/gcl-compat.lisp is in maxima-src 5.41.0-3.
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 | ;; This file should only be loaded on GCL and contains hacks to work around the
;; fact that GCL lisp is rather non-standard, and changes from one GCL version
;; to the next.
(in-package :maxima)
;; In GCL 2.6.10, get-setf-expansion is interned in CL, but isn't actually bound
;; to anything (?!). You're supposed to use get-setf-method instead. By 2.6.12,
;; get-setf-method has gone away and you have to use get-setf-expansion.
(unless (and (find-symbol "GET-SETF-EXPANSION" :cl)
(fboundp 'cl:get-setf-expansion))
(defmacro get-setf-expansion (form &optional environment)
`(get-setf-method ,form ,environment)))
|