/[gcl]/gcl/cmpnew/gcl_cmptop.lsp
ViewVC logotype

Diff of /gcl/cmpnew/gcl_cmptop.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.29 by camm, Sun Sep 18 01:56:57 2005 UTC revision 1.30 by camm, Wed Oct 12 03:12:57 2005 UTC
# Line 418  Line 418 
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
# Line 507  Line 506 
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)
# Line 1513  Line 1512 
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*))

Legend:
Removed from v.1.29  
changed lines
  Added in v.1.30

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26