src/gcl-compat.lisp

   1 ;; This file should only be loaded on GCL and contains hacks to work around the
   2 ;; fact that GCL lisp is rather non-standard, and changes from one GCL version
   3 ;; to the next.
   4
   5 (in-package :maxima)
   6
   7 ;; In GCL 2.6.10, get-setf-expansion is interned in CL, but isn't actually bound
   8 ;; to anything (?!). You're supposed to use get-setf-method instead. By 2.6.12,
   9 ;; get-setf-method has gone away and you have to use get-setf-expansion.
  10 (unless (and (find-symbol "GET-SETF-EXPANSION" :cl)
  11              (fboundp 'cl:get-setf-expansion))
  12
  13   (defmacro get-setf-expansion (form &optional environment)
  14     `(get-setf-method ,form ,environment)))