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