/[gcl]/gcl/lsp/gcl_evalmacros.lsp
ViewVC logotype

Diff of /gcl/lsp/gcl_evalmacros.lsp

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

revision 1.11 by camm, Tue Nov 1 12:14:04 2005 UTC revision 1.12 by camm, Tue Nov 1 12:39:18 2005 UTC
# Line 348  Line 348 
348  (defmacro memq (a b) `(member ,a ,b :test 'eq))  (defmacro memq (a b) `(member ,a ,b :test 'eq))
349    
350  ;;FIXME should come from DEFUNO_NEW  ;;FIXME should come from DEFUNO_NEW
351  (proclaim '(ftype (function (t fixnum) fixnum) si::select-read))  ;(proclaim '(ftype (function (t fixnum) fixnum) si::select-read))
352  (proclaim '(ftype (function () t) si::fork))  ;(proclaim '(ftype (function () t) si::fork))
353  (proclaim '(ftype (function (t) t) fib si::kill))  ;(proclaim '(ftype (function (t) t) fib si::kill))
354    
355  (defmacro background (form)  (defmacro background (form)
356    (let ((x (gensym)))    (let ((x (gensym)))

Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12

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