Commit 6aca2d83 authored by pfdietz's avatar pfdietz

Added type annotation to reduce warnings in sbcl.

parent be192ffa
......@@ -44,7 +44,7 @@
(if *compile-unoptimized-form*
(apply (compile nil (getf plist :unoptimized-lambda-form))
(getf plist :vals))
(apply (eval `(function ,(getf plist :unoptimized-lambda-form)))
(apply (the function (eval `(function ,(getf plist :unoptimized-lambda-form))))
(getf plist :vals)))))
(defun tn (n &optional (size 100))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment