418 |
(wt-h "static " (declaration-type newtype) " LnkT" num "();") |
(wt-h "static " (declaration-type newtype) " LnkT" num "();") |
419 |
#-sgi3d (wt-h "static " (declaration-type newtype) " (*Lnk" num ")() = LnkT" num ";") |
#-sgi3d (wt-h "static " (declaration-type newtype) " (*Lnk" num ")() = LnkT" num ";") |
420 |
#+sgi3d (wt-h "static " (declaration-type newtype) " (*Lnk" num ")();")))))) |
#+sgi3d (wt-h "static " (declaration-type newtype) " (*Lnk" num ")();")))))) |
|
) |
|
421 |
|
|
422 |
|
|
423 |
;; this default will be as close to the the decision of the x3j13 committee |
;; this default will be as close to the the decision of the x3j13 committee |
506 |
((is-setf-function name) |
((is-setf-function name) |
507 |
(make-setf-function-proxy-symbol (cadr name))) |
(make-setf-function-proxy-symbol (cadr name))) |
508 |
(t |
(t |
509 |
nil)))) |
nil))) |
510 |
|
|
511 |
(defun function-string (name) |
(defun function-string (name) |
512 |
(unless (symbolp name) |
(unless (symbolp name) |
1512 |
(defun t2ordinary (form) |
(defun t2ordinary (form) |
1513 |
(cond ((atom form)) |
(cond ((atom form)) |
1514 |
((constantp form) ) |
((constantp form) ) |
1515 |
(t (add-init form )))) |
(t (add-init form)))) |
|
|
|
|
) |
|
1516 |
|
|
1517 |
(defun add-load-time-sharp-comma () |
(defun add-load-time-sharp-comma () |
1518 |
(dolist* (vv (reverse *sharp-commas*)) |
(dolist* (vv (reverse *sharp-commas*)) |