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

Diff of /gcl/cmpnew/gcl_cmpopt.lsp

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

revision 1.24 by camm, Tue Nov 1 12:17:04 2005 UTC revision 1.25 by camm, Sun Nov 6 18:07:35 2005 UTC
# Line 61  Line 61 
61  (push '((character object) fixnum #.(flags set rfa)"(putc(#0,(#1)->sm.sm_fp))")  (push '((character object) fixnum #.(flags set rfa)"(putc(#0,(#1)->sm.sm_fp))")
62     (get 'sputc 'inline-unsafe))     (get 'sputc 'inline-unsafe))
63    
64    ;;FORK
65     (push '(() t #.(flags)"myfork()")
66       (get 'si::fork 'inline-unsafe))
67    
68    ;;READ-POINTER-OBJECT
69     (push '((t) t #.(flags ans set)"read_pointer_object(#0)")
70       (get 'si::read-pointer-object 'inline-unsafe))
71    
72    ;;WRITE-POINTER-OBJECT
73     (push '((t t) t #.(flags ans set)"write_pointer_object(#0,#1)")
74       (get 'si::write-pointer-object 'inline-unsafe))
75    
76  ;;READ-BYTE1  ;;READ-BYTE1
77   (push '((t t) t #.(flags ans set)"read_byte1(#0,#1)")   (push '((t t) t #.(flags ans set)"read_byte1(#0,#1)")
78     (get 'read-byte1 'inline-unsafe))     (get 'read-byte1 'inline-unsafe))

Legend:
Removed from v.1.24  
changed lines
  Added in v.1.25

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