Evaluating Medley compatibility with Practical Common Lisp code: Chapter 3

[pamoroso]

Chapter 3

This is the continuation of the work on issue #609. To evaluate the compatibility of Medley Common Lisp with ANSI Common Lisp I'm testing on Medley the code of Peter Seibel's book Practical Common Lisp.

When I first tested the code of chapter 3 I had to replace a loop call with do because Medley didn't support loop yet.

Now that it does I ran the code of chapter 3 again leaving the loop call as is. I only changed the code to add a comment at the beginning of the files, so that Medley can recognize them as pure Common Lisp files, and to initially make the XCL-USER package current.

Session transcript

I loaded the resulting source files and evaluated the following expressions at a XCL Exec:

2/8> (load "pclchap3-packages.lisp")

; Loading {DSK}<home>medley>il>demo>pclchap3-packages.lisp;1
; Finished loading {DSK}<home>medley>il>demo>pclchap3-packages.lisp;1, 103 bytes read
IL:|{DSK}<home>medley>il>demo>pclchap3-packages.lisp;1|
2/9> (load "pclchap3-simple-database.lisp")

; Loading {DSK}<home>medley>il>demo>pclchap3-simple-database.lisp;1
; Finished loading {DSK}<home>medley>il>demo>pclchap3-simple-database.lisp;1, 2013 bytes read
IL:|{DSK}<home>medley>il>demo>pclchap3-simple-database.lisp;1|
2/10> (setf *package* (find-package "COM.GIGAMONKEYS.SIMPLE-DB"))
#<Package COM.GIGAMONKEYS.SIMPLE-DB>
2/11> (add-cds)
Title: The Little Interlisper
Artist: W.R. Iter
Rating: 9
Ripped [y/n]: y
Another? [y/n]: n
NIL
2/12> (select (where :title "The Little Interlisper"))
((:TITLE "The Little Interlisper" :ARTIST "W.R. Iter" :RATING 9 :RIPPED T))
2/13> (select (where :rating 9))
((:TITLE "The Little Interlisper" :ARTIST "W.R. Iter" :RATING 9 :RIPPED T))
2/14>

All the code worked as expected.