From: <cla...@us...> - 2013-01-20 03:21:56
|
Revision: 1810 http://exp-engine.svn.sourceforge.net/exp-engine/?rev=1810&view=rev Author: clanning Date: 2013-01-20 03:21:50 +0000 (Sun, 20 Jan 2013) Log Message: ----------- Print message once the P21 file is loaded Modified Paths: -------------- engine/trunk/plugins/p21/top-level.lisp Modified: engine/trunk/plugins/p21/top-level.lisp =================================================================== --- engine/trunk/plugins/p21/top-level.lisp 2013-01-20 03:21:01 UTC (rev 1809) +++ engine/trunk/plugins/p21/top-level.lisp 2013-01-20 03:21:50 UTC (rev 1810) @@ -45,9 +45,10 @@ (setf filename (pathname filename)) (info-message "~&;;; Loading Population ~A...~%" filename) (let ((*population* nil) - (*datasec* nil)) - (parse-data filename :pass enc) - )) + (*datasec* nil) data) + (setf data (parse-data filename :pass enc)) + (info-message "~&;;; Finished Loading Population ~A.~%" filename) + data)) ; (setf %pathname filename) ; (setf name (pathname-name filename)) This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |