/[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.10 by wlott, Fri Feb 14 23:45:06 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.10

  ViewVC Help
Powered by ViewVC 1.1.5