diff --git a/src/cmp/cmploc.lsp b/src/cmp/cmploc.lsp
index ca6a93d..87e6232 100644
|
|
|
98 | 98 | (and (eq (car loc) 'C-INLINE) |
99 | 99 | (eq (sixth loc) 'VALUES))))) |
100 | 100 | |
101 | | (defun loc-immediate-value-p (loc &aux head) |
| 101 | (defun loc-immediate-value-p (loc) |
102 | 102 | (cond ((eq loc t) |
103 | 103 | (values t t)) |
104 | 104 | ((eq loc nil) |
… |
… |
|
112 | 112 | (values t value)))) |
113 | 113 | ((atom loc) |
114 | 114 | (values nil nil)) |
115 | | |
116 | | ((member head '(fixnum-value character-value long-float-value |
117 | | double-float-value single-float-value)) |
| 115 | ((member (first loc) |
| 116 | '(fixnum-value character-value long-float-value |
| 117 | double-float-value single-float-value)) |
118 | 118 | (values t (second loc))) |
119 | 119 | (t |
120 | 120 | (values nil nil)))) |
… |
… |
|
123 | 123 | (baboon :format-control "Unknown location found in ~A~%~S" |
124 | 124 | :format-arguments (list where loc))) |
125 | 125 | |
126 | | (defun wt-loc (loc &aux fd) |
| 126 | (defun wt-loc (loc) |
127 | 127 | (cond ((consp loc) |
128 | 128 | (let ((fd (gethash (car loc) *wt-loc-dispatch-table*))) |
129 | 129 | (if fd |