~ubuntu-branches/ubuntu/vivid/gcl/vivid

« back to all changes in this revision

Viewing changes to cmpnew/nocmpinc.lsp

• browse files at revision 1
• compare with another revision
• download diff
• download tarball
• view history from revision 1

Show diffs side-by-side

added

removed

cmpnew/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'

• Older »

Loggerhead is a web-based interface for Breezy
Version: 2.0.1