Author: achiumenti Date: Wed Apr 9 08:24:28 2008 New Revision: 28 Modified: trunk/main/claw-core/src/misc.lisp Log: Corrected the registering lisplet function Modified: trunk/main/claw-core/src/misc.lisp ============================================================================== --- trunk/main/claw-core/src/misc.lisp (original) +++ trunk/main/claw-core/src/misc.lisp Wed Apr 9 08:24:28 2008 @@ -71,7 +71,7 @@ "Isert a new cons into a list of cons, or replace the one that has the same location registered (its car)." (let ((result (remove-by-location (car location-cons) cons-list))) - (setf result (push location-cons cons-list)))) + (setf result (push location-cons result)))) (defun lisplet-start-session () "Starts a session boud to the current lisplet base path"