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))) |