0.8.9.52:

[sbcl.git] / src / compiler / srctran.lisp

diff --git a/src/compiler/srctran.lisp b/src/compiler/srctran.lisp
index 83fcba2..46cbfa8 100644 (file)
--- a/src/compiler/srctran.lisp
+++ b/src/compiler/srctran.lisp
@@ -65,10 +65,14 @@
 (defun source-transform-cxr (form)
   (if (/= (length form) 2)
       (values nil t)
-      (let ((name (symbol-name (car form))))
-       (do ((i (- (length name) 2) (1- i))
+      (let* ((name (car form))
+            (string (symbol-name
+                     (etypecase name
+                       (symbol name)
+                       (leaf (leaf-source-name name))))))
+       (do ((i (- (length string) 2) (1- i))
             (res (cadr form)
-                 `(,(ecase (char name i)
+                 `(,(ecase (char string i)
                       (#\A 'car)
                       (#\D 'cdr))
                    ,res)))