← Back to branch summary

~ubuntu-branches/ubuntu/intrepid/ecl/intrepid

« back to all changes in this revision

Viewing changes to src/cmp/cmpdefs.lsp

  • Committer: Bazaar Package Importer
  • Author(s): Peter Van Eynde
  • Date: 2007-04-09 11:51:51 UTC
  • mfrom: (1.1.3 upstream)
  • Revision ID: james.westby@ubuntu.com-20070409115151-ql8cr0kalzx1jmla
Tags: 0.9i-20070324-2
Upload to unstable. 

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/cmp/cmpdefs.lsp
60
60
  read-nodes            ;;; Nodes (c1forms) in which the reference occurs
61
61
)
62
62
 
63
 
(deftype OBJECT () `(not (or fixnum character short-float long-float)))
 
63
(deftype OBJECT () `(not (or fixnum character float)))
64
64
 
65
65
(defstruct (var (:include ref) (:constructor %make-var) (:print-object print-var))
66
66
;  name         ;;; Variable name.
342
342
;;; *last-label* holds the label# of the last used label.
343
343
;;; *exit* holds an 'exit', which is
344
344
;;      ( label# . ref-flag ) or one of RETURNs (i.e. RETURN, RETURN-FIXNUM,
345
 
;;      RETURN-CHARACTER, RETURN-LONG-FLOAT, RETURN-SHORT-FLOAT, or
 
345
;;      RETURN-CHARACTER, RETURN-DOUBLE-FLOAT, RETURN-SINGLE-FLOAT, or
346
346
;;      RETURN-OBJECT).
347
347
;;; *unwind-exit* holds a list consisting of:
348
348
;;      ( label# . ref-flag ), one of RETURNs, TAIL-RECURSION-MARK, FRAME,