( Forwarded Mail )

[TEITELMAN]

Date: 17 Oct 1978 2205-EDT
From: LEWIS at BBN-TENEXD
Subject: set a/c link
To:   bobrow at MAXC2
cc:   YONKE, VITTAL, masinter at MAXC2, TEITELMAN at PARC-MAXC2

Danny,

It is now written and will be in the next lisp.mac (alice currently
has a hold on the file for a bug fix).
I made one change.  The fns take a 3rd arg, FLG.
If FLG=non-nil then NEWFRAME will be released if the change succeeds.
eg, if you want to do the smash and release all the stack pointers,
put still catch things if the smash fails, you could say

(if not (RELSTK (SETALINK FOO FUM T)) then (SMASHLINKERROR FOO FUM))

or some such.

Daryle

p.s. A test case I was using was setalink[foo;fum] followed by
setclink[fum;foo].  How's that for a case of lisp incest?
-------

-------