Skip to content
Snippets Groups Projects
Commit e3d1deb1 authored by gerd's avatar gerd
Browse files

(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.
parent 5294e316
No related branches found
No related tags found
Loading
Loading
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment