← Back to branch summary

~ubuntu-branches/ubuntu/quantal/gclcvs/quantal

« back to all changes in this revision

Viewing changes to cmpnew/gcl_nocmpinc.lsp

  • Committer: Bazaar Package Importer
  • Author(s): Camm Maguire
  • Date: 2004-06-24 15:13:46 UTC
  • Revision ID: james.westby@ubuntu.com-20040624151346-xh0xaaktyyp7aorc
Tags: 2.7.0-26
C_GC_OFFSET is 2 on m68k-linux

Show diffs side-by-side

added added

removed removed

Lines of Context:
cmpnew/gcl_nocmpinc.lsp
 
1
 
 
2
 
 
3
(in-package 'compiler)
 
4
 
 
5
(defvar *cmpinclude-string* nil)
 
6
 
 
7
(defun write-out-cmpinclude (stream  string)
 
8
  (do ((i 0 (setq i (the fixnum (+ i 1))))
 
9
       (l (length *cmpinclude-string*)))
 
10
      ((>= i l))
 
11
      (declare (fixnum i l))
 
12
      (or string (setq string *cmpinclude-string*))
 
13
      (or string (error "need a string"))
 
14
      (let ((tem (aref (the string  string i))))
 
15
        (declare (character tem))
 
16
        (write-char tem stream))))
 
17
  
 
18
 
 
19
 
 
20
 
 
21
      
 
22
      
 
23
  
 
 
b'\\ No newline at end of file'