[cells-devel] tiny patch for running Cells 3 on CLISP

[Jack Unrue]

On 4/1/06, Ken Tilton <kentilton at gmail.com> wrote:
>
> On 4/1/06, Jack Unrue <jdunrue at gmail.com> wrote:
> > Hello Kenny,
> >
> > As of CLISP 2.38 (if not earlier, I haven't checked), the
> > #+clisp defun for slot-definition-name is no longer necessary.
>
>
> Aha! I spotted that when cleaning up the code and had a feeling it could go.
> Thanks for the patch.

Sorry I didn't catch this before, but you also need these
changes for clisp (also tested on LW):

===================================================================
RCS file: /project/cells/cvsroot/cells/model-object.lisp,v
retrieving revision 1.4
diff -r1.4 model-object.lisp
53c53
<       for sn = (slot-definition-name esd)
---
>       for sn = (clos::slot-definition-name esd)
115,116c115,116
<     (when (md-slot-cell-type (type-of self) (slot-definition-name esd))
<       (let* ((slot-name (slot-definition-name esd))
---
>     (when (md-slot-cell-type (type-of self) (clos::slot-definition-name esd))
>       (let* ((slot-name (clos::slot-definition-name esd))

===================================================================
RCS file: /project/cells/cvsroot/cells/cells-test/test.lisp,v
retrieving revision 1.4
diff -r1.4 test.lisp
228c228
<                    for sn = (slot-definition-name esd)
---
>                    for sn = (clos::slot-definition-name esd)

--
Jack Unrue