From thenriksen at common-lisp.net Fri Oct 20 22:18:05 2006 From: thenriksen at common-lisp.net (thenriksen) Date: Fri, 20 Oct 2006 18:18:05 -0400 (EDT) Subject: [climacs-cvs] CVS esa Message-ID: <20061020221805.47FE35B067@common-lisp.net> Update of /project/climacs/cvsroot/esa In directory clnet:/tmp/cvs-serv1075 Modified Files: esa.asd Log Message: Make esa.asd loadable. --- /project/climacs/cvsroot/esa/esa.asd 2006/09/08 18:08:03 1.6 +++ /project/climacs/cvsroot/esa/esa.asd 2006/10/20 22:18:05 1.7 @@ -1,3 +1,32 @@ +;;; -*- Mode: Lisp; Package: COMMON-LISP-USER -*- + +;;; (c) copyright 2005-2006 by +;;; Robert Strandh (strandh at labri.u-bordeaux.fr) +;;; (c) copyright 2006 by +;;; Troels Henriksen (athas at sigkill.dk) + +;;; This library is free software; you can redistribute it and/or +;;; modify it under the terms of the GNU Library General Public +;;; License as published by the Free Software Foundation; either +;;; version 2 of the License, or (at your option) any later version. +;;; +;;; This library is distributed in the hope that it will be useful, +;;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +;;; Library General Public License for more details. +;;; +;;; You should have received a copy of the GNU Library General Public +;;; License along with this library; if not, write to the +;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, +;;; Boston, MA 02111-1307 USA. + +;;; ASDF system definition for ESA. + +(defpackage :esa.system + (:use :cl :asdf)) + +(in-package :esa.system) + (defsystem :esa :depends-on (:mcclim) :components ((:file "packages") From rstrandh at common-lisp.net Sat Oct 28 06:48:09 2006 From: rstrandh at common-lisp.net (rstrandh) Date: Sat, 28 Oct 2006 02:48:09 -0400 (EDT) Subject: [climacs-cvs] CVS climacs Message-ID: <20061028064809.687204C3E6@common-lisp.net> Update of /project/climacs/cvsroot/climacs In directory clnet:/tmp/cvs-serv14856 Modified Files: lisp-syntax.lisp Log Message: Convert uninterned symbols to objects. --- /project/climacs/cvsroot/climacs/lisp-syntax.lisp 2006/09/16 12:11:11 1.118 +++ /project/climacs/cvsroot/climacs/lisp-syntax.lisp 2006/10/28 06:48:08 1.119 @@ -2571,6 +2571,9 @@ (when (not (eval-feature-conditional conditional syntax)) (token-to-object syntax (third-noncomment (children token)))))) +(defmethod token-to-object (syntax (token uninterned-symbol-form) &key) + (read-from-string (token-string syntax token))) + (defmethod token-to-object (syntax (token undefined-reader-macro-form) &key) ;; ??? nil)