(make-package 'nr)
(in-package 'nr)
;(defparameter *nrutil* (load-foreign "nr-all.o"))
(defparameter *nrutil* (load-foreign "nr-all.so"))
(defforeign svdcmp-cnv *nrutil* "svdcmp_cnv" () :integer)
(defforeign round-off-cnv *nrutil* "round_off_cnv" () :integer)
(defforeign svbksb-cnv *nrutil* "svbksb_cnv" () :integer)
(defforeign test *nrutil* "main" () :integer)