(defun lexical-symbol (symbol &optional prefix)
(let* ((string (symbol-name symbol)) (length (length string))) (if (or (< length 3) (not (char= (elt string 0) #\*)) (not (char= (elt string (1- length)) #\*))) (error "Symbol does not follow dynamic conventions.") (if prefix (intern (cs prefix (subseq string 1 (1- length)))) (intern (subseq string 1 (1- length))))))) => spurious code deletion note that goes away when the local variable length is renamed to something else. * src/compiler/generic/vm-tran.lisp (subseq, copy-seq) <deftransform>: Use len as local variable name instead of cl:length.
Loading
Please register or sign in to comment