/[cmucl]/src/code/irrat.lisp
ViewVC logotype

Diff of /src/code/irrat.lisp

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

revision 1.9 by ram, Fri Oct 25 20:02:07 1991 UTC revision 1.9.1.1 by wlott, Fri Jan 24 08:47:04 1992 UTC
# Line 35  Line 35 
35      `(progn      `(progn
36         (proclaim '(inline ,function))         (proclaim '(inline ,function))
37         (export ',function)         (export ',function)
38         (def-c-routine (,name ,function) (double-float)         (alien:def-alien-routine (,name ,function) double-float
39           ,@(let ((results nil))           ,@(let ((results nil))
40               (dotimes (i num-args (nreverse results))               (dotimes (i num-args (nreverse results))
41                 (push (list (intern (format nil "ARG-~D" i))                 (push (list (intern (format nil "ARG-~D" i))

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.9.1.1

  ViewVC Help
Powered by ViewVC 1.1.5