Raymond Toy pushed to branch issue-466-c-wrapper-specfun at cmucl / cmucl

Commits:

1 changed file:

Changes:

  • src/code/irrat.lisp
    ... ... @@ -49,7 +49,7 @@
    49 49
     				       (string-upcase name)))))
    
    50 50
         `(progn
    
    51 51
            (declaim (inline ,lisp-name))
    
    52
    -       (export '(,lisp-name))
    
    52
    +       (export ,lisp-name)
    
    53 53
            (alien:def-alien-routine (,c-name ,lisp-name) double-float
    
    54 54
     	 ,@(let ((results nil))
    
    55 55
     	     (dotimes (i num-args (nreverse results))