[claw-cvs] r28 - trunk/main/claw-core/src

[achiumenti at common-lisp.net]

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"