### Factor out a function.

parent 42718e40
 ... ... @@ -1173,6 +1173,35 @@ where each of the vars returned is a list with these elements: "Dummy FUNCALL wrapper to force p1 not to optimize the call." (apply fn args)) (defun p1-variable-reference (var) (let ((variable (find-visible-variable var))) (when (null variable) (unless (or (special-variable-p var) (memq var *undefined-variables*)) (compiler-style-warn "Undefined variable ~S assumed special" var) (push var *undefined-variables*)) (setf variable (make-variable :name var :special-p t)) (push variable *visible-variables*)) (let ((ref (make-var-ref variable))) (unless (variable-special-p variable) (when (variable-ignore-p variable) (compiler-style-warn "Variable ~S is read even though it was declared to be ignored." (variable-name variable))) (push ref (variable-references variable)) (incf (variable-reads variable)) (cond ((eq (variable-compiland variable) *current-compiland*) (dformat t "p1: read ~S~%" var)) (t (dformat t "p1: non-local read ~S variable-compiland = ~S current compiland = ~S~%" var (compiland-name (variable-compiland variable)) (compiland-name *current-compiland*)) (setf (variable-used-non-locally-p variable) t)))) ref))) (defknown p1 (t) t) (defun p1 (form) (cond ... ... @@ -1193,34 +1222,7 @@ where each of the vars returned is a list with these elements: (pathnamep value)))) (setf form value)) (t (let ((variable (find-visible-variable form))) (when (null variable) (unless (or (special-variable-p form) (memq form *undefined-variables*)) (compiler-style-warn "Undefined variable ~S assumed special" form) (push form *undefined-variables*)) (setf variable (make-variable :name form :special-p t)) (push variable *visible-variables*)) (let ((ref (make-var-ref variable))) (unless (variable-special-p variable) (when (variable-ignore-p variable) (compiler-style-warn "Variable ~S is read even though it was declared to be ignored." (variable-name variable))) (push ref (variable-references variable)) (incf (variable-reads variable)) (cond ((eq (variable-compiland variable) *current-compiland*) (dformat t "p1: read ~S~%" form)) (t (dformat t "p1: non-local read ~S variable-compiland = ~S current compiland = ~S~%" form (compiland-name (variable-compiland variable)) (compiland-name *current-compiland*)) (setf (variable-used-non-locally-p variable) t)))) (setf form ref))) form)))) (p1-variable-reference form))))) ((atom form) form) (t ... ...
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
{"ft_lang_label":"__label__en","ft_lang_prob":0.54937446,"math_prob":0.9356181,"size":2560,"snap":"2022-27-2022-33","text_gpt3_token_len":692,"char_repetition_ratio":0.2413928,"word_repetition_ratio":0.49829352,"special_character_ratio":0.3113281,"punctuation_ratio":0.09113924,"nsfw_num_words":0,"has_unicode_error":false,"math_prob_llama3":0.9683966,"pos_list":[0],"im_url_duplicate_count":[null],"WARC_HEADER":"{\"WARC-Type\":\"response\",\"WARC-Date\":\"2022-08-16T10:29:39Z\",\"WARC-Record-ID\":\"<urn:uuid:35b2288e-e7fb-42c0-b9c3-916104600e5b>\",\"Content-Length\":\"215402\",\"Content-Type\":\"application/http; msgtype=response\",\"WARC-Warcinfo-ID\":\"<urn:uuid:b35e9849-4929-430e-be79-fe9092c3fb84>\",\"WARC-Concurrent-To\":\"<urn:uuid:537da951-9d34-41bd-a39e-1a12b65b75ce>\",\"WARC-IP-Address\":\"148.251.208.23\",\"WARC-Target-URI\":\"https://gitlab.common-lisp.net/abcl/abcl/-/commit/2bf7079c7af6e43e3f2176775e21220a025d855e\",\"WARC-Payload-Digest\":\"sha1:C6PNIGHR4UPVBK3V46FZL6S3BRNQZNPF\",\"WARC-Block-Digest\":\"sha1:TAPTZ54FYNSD2GF2DMJZDZR6DODTLBR3\",\"WARC-Identified-Payload-Type\":\"text/html\",\"warc_filename\":\"/cc_download/warc_2022/CC-MAIN-2022-33/CC-MAIN-2022-33_segments_1659882572286.44_warc_CC-MAIN-20220816090541-20220816120541-00107.warc.gz\"}"}