30
30
((typep val 'SHORT-FLOAT)
31
31
(make-c1form* 'LOCATION :type 'SHORT-FLOAT
32
32
:args (list 'SHORT-FLOAT-VALUE val (add-object val))))
34
34
(make-c1form* 'LOCATION :type (object-type val)
35
35
:args (list 'VV (add-object val))))
38
39
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;