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

« back to all changes in this revision

Viewing changes to src/cmp/cmpmac.lsp

  • Committer: Bazaar Package Importer
  • Author(s): Albin Tonnerre
  • Date: 2008-06-20 18:00:19 UTC
  • mfrom: (1.1.4 upstream)
  • Revision ID: james.westby@ubuntu.com-20080620180019-7fbz1ln5444vtkkr
Tags: 0.9j-20080306-2ubuntu1
* Enabled unicode support. (Closes: LP #123530)
* Modify Maintainer value to match the DebianMaintainerField specification.

Show diffs side-by-side

added added

removed removed

Lines of Context:
 
1
;;;;  -*- Mode: Lisp; Syntax: Common-Lisp; Package: C -*-
 
2
;;;;
1
3
;;; ----------------------------------------------------------------------
2
4
;;; Macros only used in the code of the compiler itself:
3
5
 
35
37
 
36
38
;;; from cmpwt.lsp
37
39
(defmacro wt (&rest forms &aux (fl nil))
38
 
  (dolist (form forms (cons 'progn (nreverse (cons nil fl))))
 
40
  (dolist (form forms `(progn ,@(nreverse (cons nil fl))))
39
41
    (if (stringp form)
40
42
        (push `(princ ,form *compiler-output1*) fl)
41
43
        (push `(wt1 ,form) fl))))
42
44
 
43
45
(defmacro wt-h (&rest forms &aux (fl nil))
44
 
  (dolist (form forms)
 
46
  (dolist (form forms `(progn ,@(nreverse (cons nil fl))))
45
47
    (if (stringp form)
46
48
      (push `(princ ,form *compiler-output2*) fl)
47
 
      (push `(wt-h1 ,form) fl)))
48
 
  `(progn (terpri *compiler-output2*) ,@(nreverse (cons nil fl))))
 
49
      (push `(wt-h1 ,form) fl))))
 
50
 
 
51
(defmacro wt-nl-h (&rest forms)
 
52
  `(progn (terpri *compiler-output2*) (wt-h ,@forms)))
49
53
 
50
54
(defmacro princ-h (form) `(princ ,form *compiler-output2*))
51
55