Skip to content
Snippets Groups Projects
Commit f99eaea7 authored by rtoy's avatar rtoy
Browse files

Fix mistake; remove &optional.

parent 82ae4439
No related branches found
No related tags found
No related merge requests found
......@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain.
;;;
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/foreign.lisp,v 1.54 2006/04/26 20:49:23 rtoy Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/foreign.lisp,v 1.55 2008/09/07 00:46:18 rtoy Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -845,7 +845,7 @@ environment passed to Lisp."
(when (atom files)
(when verbose
(format t ";;; Opening as shared library ~A ...~%" files))
(multiple-value-bind (ok &optional error-string)
(multiple-value-bind (ok error-string)
(load-object-file files)
(cond (ok
(when verbose
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment