Merge ASDF-loadable version of Pseudoscheme from 2008

jar398 / pseudoscheme

Scheme to Common Lisp

BSD 2-Clause "Simplified" License

13 stars 3 forks source link

Merge ASDF-loadable version of Pseudoscheme from 2008 #3

Open jar398 opened 2 years ago

jar398 commented 2 years ago

On 10/15/2008, Taylor Campbell wrote to me:

The modified Pseudoscheme lives at http://svn.mumble.net:8080/svn/lsw/trunk/ext-asdf/pseudoscheme-2.13/, and is ASDF-loadable, although I don't remember whether I made it possible to write ASDF systems containing Pseudoscheme source.

The URL doesn't work, but the svn repository appears to be present on the server.

lassik commented 10 months ago

There's almost nothing left at http://svn.mumble.net/ unless it's all hidden somehow.

jar398 commented 10 months ago

OK I added a few versions to the repo.

The main branch (now the default) has same file contents as master (for now) but now has history including 2.13, 2.13a, and 2.13b
The 2.13-asdf branch has the variant of 2.13 that includes some asdf enhancement (I have not looked at it)
There is a 2.13 commit that is a common ancestor of both

Since the carriage returns seem to come and go, it might be helpful to use the ignore-whitespace option to git diff (is it -w?)

jar398 commented 9 months ago

@lassik I have not attempted to merge the 2.13-asdf branch into the main branch. If you want to give it a try, that would be appreciated. I have never used asdf so if you could test the result that would be even better.

lassik commented 9 months ago

Great! The ASDF system from the 2.13-asdf branch loads with no changes.

SBCL emits lots of compiler notes, as it tends to do.

I tried simple expressions like this:

(ps:scheme-eval
 '(letrec ((loop (lambda (acc n) (if (zero? n) acc (loop (* acc n) (- n 1)))))) (loop 1 100)) 
 PS:SCHEME-USER-ENVIRONMENT)

But it seems SCHEME-USER-ENVIRONMENT is not one to use.

lassik commented 9 months ago

Here's how I got started:

$ export CL_SOURCE_REGISTRY=$PWD
$  sbcl --noinform
* (require "asdf")
NIL
* (asdf:load-system "pseudoscheme")
[...]
;   caught 1 WARNING condition
;   caught 119 STYLE-WARNING conditions
T

jar398 commented 9 months ago

Are you asking a question? It would take me a while to bring this code back into my brain. I'm hoping you'll figure out whatever you need on your own. If you could merge the asdf and main branches that would be wonderful.