Commit af7c2b18 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

Avoid calling fmakunbound on (setf output-translations) on MKCL

MKCL 1.1.9 hates it, and works well without it.
parent d3c34d34
......@@ -24,6 +24,7 @@
;; (setf output-translations) between 2.27 and 3.0.3 was using a defsetf macro
;; for the sake of obsolete versions of GCL 2.6. Make sure it doesn't come to haunt us.
#-mkcl ; mkcl 1.1.9 can't fmakunbound a setf function.
(when-upgrading (:version "3.1.2") (fmakunbound '(setf output-translations)))
(with-upgradability ()
......@@ -54,7 +55,7 @@ and the order is by decreasing length of namestring of the source pathname.")
(pathname-directory (car x)))))
(if (listp directory) (length directory) 0))))))))
(defun* ((setf output-translations)) (new-value) (set-output-translations new-value))
(defun (setf output-translations) (new-value) (set-output-translations new-value))
(defun output-translations-initialized-p ()
"Have the output-translations been initialized yet?"
  • Just tried (fmakunbound '(setf output-translations)) in either MKCL 1.1.9 or MKCL's git master head and found that it works as expected. Could you please describe the symptoms (debugger message or other) that made you believe this workaround was needed?

Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment