HDTenEightyP/NetNews huggingface dataset:
From: p2@porter.asl.dialnet.symbolics.com (Peter Paine)
Newsgroups: comp.lang.lisp.mcl
Subject: Inter-host MCL communications
Date: 11 Nov 92 23:58:00 GMT
Reply-To: p3%Porter.ASL.dialnet.symbolics.com%SEVERN.sltd.dialnet.symbolics.com@RIVERSIDE.SCRC.Symbolics.COM

I need to read and write data between MCL environments on seperate
hosts.

I had in mind network calls from MCL over something like TCP on
ethernet. Ideally, I want a bidirectional stream, good bandwidth and a
server at the receiving end.

Has anyone cracked this, if so can you supply pointers please.
From: george@hsvaic.boeing.com (George Williams)
Newsgroups: comp.lang.lisp.mcl
Subject: Re: Paradigms of AI by Peter Norvig
Date: 23 Nov 92 16:37:57 GMT
       "Paradigms of AI by Peter Norvig" (Nov 23, 10: 58am)

On Nov 23, 10:58am, Bruce Lester wrote:
> Does anyone know where I can get "Paradigms of AI by Peter Norvig"?  Publisher
> name and address.

ISBN 1-55860-191-0

Morgan Kaufmann Publishers
Editorial Office:
2929 Campus Drive, Suite 260
San Mateo, CA

(800) 745-7323 fax: (415) 578-0672
E-mail: morgan@unix.sri.com

George Williams            BCS Huntsville Advanced Computing Group
Boeing Computer Services   Internet: george@hsvaic.boeing.com
POBox 240002, M/S JY-58    UUCP: ...!uw-beaver!bcsaic!hsvaic!george
Huntsville AL 35824-6402   Phone: 205+464-4968 FAX: 205+464-4930
From: akyurek@niscale.LeidenUniv.nl (Aladin Akyurek)
Newsgroups: comp.lang.lisp.mcl
Subject: Slow Compiler
Date: 23 Nov 92 15:31:01 GMT

A version of MCL (I think, the beta version) could compile a large system (app. 1200K code)
within 20 minutes. MCL 2.0 needs 60 minutes to compile the same code. Why? Can anyone
explain this difference?

Thanks,

Aladin


=========================
Aladin Akyurek
NISCALE
Witte Singel 103
2313 AA Leiden
The Netherlands

E-mail: akyurek@hammer.niscale.LeidenUniv.nl
=========================
Newsgroups: comp.lang.lisp.mcl
From: waander@cs.umd.edu (Bill Andersen)
Subject: Basic color use in MCL
Organization: U of Maryland, Dept. of Computer Science, Coll. Pk., MD 20742
Distribution: co
Date: 22 Nov 92 08:59:04 GMT
X-Note1: mail msgid was <62256@mimsy.umd.edu>
X-Note2: message-id generated by recnews


  I just want to draw some stuff in a view in various colors.  I have
an application with a bunch of subviews inside a view inside a window.
The stuff I want to draw is in the innermost subviews...

  I tried the following....

(defclass my-view (view) ())

(defmethod view-draw-contents ((self my-view))
  (with-focused-view self ; maybe this is redundant
    (with-fore-color *fancy-color*
      (with-pstrs ((str "Hello!"))
        (#_DrawString str)))))

  But the string just gets drawn in the default foreground
color of the outermost window.  What's the deal?  Could someone
supply some examples of how to do stuff with colors??  Maybe
post it to the archive????

  Thanks...


  ...bill

-- 
   / Bill Andersen (waander@cs.umd.edu) /
  / University of Maryland             /
 / Department of Computer Science     /
/ College Park, Maryland  20742      /
From: bill@cambridge.apple.com (Bill St. Clair)
Newsgroups: comp.lang.lisp.mcl
Subject: Re: Making a lambda-expr more like a fn
Date: 16 Nov 92 16:33:40 GMT
Article-I.D.: cambridg.9211161528.AA16443

At 23:03 11/15/92 -0800, Rik Belew wrote:
>One of the changes to CL2 that bit me has been that
>raw lambda's can no longer be funcall'd (or apply'd)
>directly.
>
>With CMULisp, I have remedied this by coercing the lambda
>into a function first:
>
>        (setf (org-lexpr p) (coerce lexpr 'function))
>
>But CCL::COERCE-TO-FUNCTION won't have it:
>
>
>> Error: value (LAMBDA (WLIST &AUX X1) (SETQ X1 (NTH 0 HISTORY)) (VALUES (+ (CAR WLIST) (* (NTH 1 WLIST) X1)) (LIST 1.0 X1))) is not of the expected type FUNCTION.
>> While executing: CCL::COERCE-TO-FUNCTION
>
>I have also tried prepending the #' (function) abbrev., but
>that result couldn't be funcalled either.
>
>I was able to get what I wanted compiling the form instead.  However, in
>this application, I would like very much to avoid the compilation overhead
>if at all possible.  Can I?

At 11:28 11/16/92 +0000, Ranson wrote:
>Only the evaluator and the compiler process #' to create a function. If you
>don't want to compile, call EVAL.
>Or better, try to not create functions at run time.
>     Daniel.

Daniel is correct. COERCE will either call COMPILE or do preprocessing for
EVAL depending on the value of *compile-definitions*. The problem with
COERCE is a known compiler bug. Compiling the expression:

  (coerce x 'function)

results in a call to ccl::coerce-to-function. It should result in a call to
ccl::coerce-to-function-1. You can fix this in a number of ways:

1) Take Daniel's advice and don't try to create functions at run time.

2) Ask me to send you "coerce-to-function-patch"
   This patch will be part of patch 2 for MCL 2.0.

3) write (funcall 'coerce x 'function) instead of (coerce x 'function)
   This will be slightly slower than option 2, but I doubt you'll notice.
Newsgroups: comp.lang.lisp.mcl
From: jona@ils.nwu.edu (Kemi Jona)
Subject: window-size-parts question
Followup-To: comp.lang.lisp.mcl
Organization: Institute for the Learning Sciences
Date: Wed, 18 Nov 1992 19:55:00 GMT

When creating a new window, it appears that window-size-parts gets called
_before_ any subviews are added to it.  Is this intentional?  It seems like
a mistake to me.  If you want to have a window's subviews adjust
dynamically to the size of the window, you most certainly would want to
have them also adjust to whatever :view-size initarg is supplied when that
window is initially created.

Here's a simple test case:

(defclass test-dialog (dialog) ())

(defmethod window-size-parts ((d test-dialog))
   (format t "Subviews of ~S are ~S~%" d (subviews d)))

(make-instance 'test-dialog 
  :view-size #@(200 200)
  :view-subviews (list (make-instance 'static-text-dialog-item)))


Right now I have to call window-size-parts "manually" after all the
subviews have been added, but before I show the window.

Any ideas?

--Kemi

------------------------------------------------------------
Kemi Jona           jona@ils.nwu.edu             
Institute for the Learning Sciences, Northwestern University             
1890 Maple Ave., Rm.354, Evanston, IL 60201                  
(708) 467-1969 or 491-3500     FAX: (708) 491-5258
From: lynch@ils.nwu.edu
Newsgroups: comp.lang.lisp.mcl
Subject: Re: bug using array dialog items
Date: 20 Nov 92 19:45:36 GMT

Actually, it's not just *white-color*.

If you use, say, *blue-color*, you will note that the selected-cell ends up
being drawn in blue on [de]activate event.
Thus, you're disappearing cells are really just being drawn in
*white-color*.

Also, since view-[de]activate-event-handler do a simple inversion [ack],
and *white-color* isn't really white, you are probably seeing a color
indistinguishable (to us humans) from white, that isn't quite white, being
inverted to a color that is very close to black, but probably isn't quite
black.
Now I'm not sure exactly how the inversion gets off-sync, but it sure looks
like [de]activate-event is not up to snuff for drawing frames.

[ack]:  *NO* method should do any direct drawing except view-draw-contents!
"TANSTAAFL" Rich lynch@ils.nwu.edu
From: lieber@MEDIA-LAB.MEDIA.MIT.EDU (Henry Lieberman)
Newsgroups: comp.lang.lisp.mcl
Subject: Picture-files example
Date: 20 Nov 92 19:10:41 GMT


I was playing around with Picture-files in the examples folder.
It writes a file that it can read back itself, but no other Mac applications
recognize this as a pict file, unless you set the mac-file-type yourself. 
I had lots of small glitch problems of displays looking incorrect, and 
MacDraw, Canvas, Photoshop etc. all have different ideas about what a pict
file should look like or even if its a valid pict file at all. I'll supply
detailed examples upon request. This may not be Lisp's problem, it may be
endemic to the underlying pict manipulation functions, as not every Mac
program seems to agree on picts.

Henry
Newsgroups: comp.lang.lisp.mcl
From: moore@cs.utah.edu (Tim Moore)
Subject: Re: A possible bug in funcall
Followup-To: comp.lang.lisp.mcl
In-reply-to: wineberg@scs.carleton.ca's message of 13 Nov 92 23:30:05 GMT
Organization: University of Utah CS Dept
Distribution: co
Date: 15 Nov 92 11:41:05

In article <721789069.3191@news.Colorado.EDU> wineberg@scs.carleton.ca (Mark Wineberg) writes:
   I was experimenting with funcalls on mcl version 2.0 and found a behavior
   that I did not understand.  The lambda expresions were all copied
   so the error is not produced by a typo.  I far as I know, the
   car of the list is a valid function, properly written with the
   #', yet when the car is taken, a funcall on it does not work.
   Is this a bug in the system or am I misusing something.

You are being misled by the printer, which is printing a list of the
form (function ...) as #'...

   An example taken from the listener's transcript follows:

   ? (funcall #'(lambda () (+ 1 2 3 4 5)))
   15
   ? (funcall (eval '#'(lambda () (+ 1 2 3 4 5))))
   15
   ? (car '(#'(lambda () (+ 1 2 3 4 5)) 25))
   #'(LAMBDA NIL (+ 1 2 3 4 5))

The list (function (lambda () (+ 1 2 3 4 5))) isn't a function.  EVAL
(implicity through the read-eval-print loop in your first example,
explicitly in your second), or COMPILE can translate it into a
funcallable object.

   ? (funcall (car '(#'(lambda () (+ 1 2 3 4 5)) 25)))
   > Error: #'(LAMBDA NIL (+ 1 2 3 4 5)) can't be FUNCALLed or APPLYed.
   > While executing: CCL::TOPLEVEL-EVAL
   > Type Command-. to abort.
   See the RestartsI menu item for further choices.
   1 > 

The correct response.  A real, funcallable function would probably
always be printed something like #<Interpreted Function #X123456>, not
#'(LAMBDA NIL ...)

All this implies that you can't put a function in a quoted list by
writing '(foo #'(lambda (bar) ...)).  Indeed, you shouldn't put
functions in constants at all.

--
Tim Moore                    moore@cs.utah.edu {bellcore,hplabs}!utah-cs!moore
"Wind in my hair - Shifting and drifting - Mechanical music - Adrenaline surge"
	- Rush
From: bill@cambridge.apple.com (Bill St. Clair)
Newsgroups: comp.lang.lisp.mcl
Subject: Re: Problem with AppleTalk in Macintosh Common Lisp 2.0
Date: 23 Nov 92 20:15:19 GMT

At 16:23 11/20/92 +0000, KomDom wrote:
>I tried to use the function GetMyZone from the file AppleTalk.lisp in the MCL 2.0
>But the following error comes: Undefined function TRAPS::PB-CONTROL-1 ...
>Can you please tell me where I can find the functionPB-CONTROL-1. I looked for
>it in the file library/interfaces/index/traps.idx - but I didn't find it.
>Thank you very much   Klaus Stroebinger

traps::pb-control-1 is defined in the file "ccl:library;interfaces.lisp"
From: mt@media.mit.edu (Michael Travers)
Newsgroups: comp.lang.lisp.mcl
Subject: Sound Manager?
Date: 19 Nov 92 21:58:13 GMT


I've been playing around with the Sound Manager, and while I can make
it do some tricks from Lisp it absolutely refuses to open more than
one channel for me.  The load-calculating portion of the manager
apparently believes that a single channel takes 100% of the machine,
no matter how powerful the machine is (tested on an fx and a Quadra
950), and I haven't found a way to convince it otherwise.  Has anyone
else out there gotten multiple sound channels to work?
Newsgroups: comp.lang.lisp.mcl
From: cartier@math.uqam.ca (Guillaume Cartier)
Newsgroups: comp.lang.lisp.mcl
Subject: Re: Making a lambda-expr more like a fn
Date: 18 Nov 92 16:12:02 GMT

<---
| While reading the messages about turning lambda expressions
| into functions, it seemed to me that the following might be reasonable...
| 
| (defmacro with-environment ((var) &body body &environment env)
|     `(let ((,var ',env))
|        ,@body))
| 
| In an artificial example..
| 
| (let ((x 0))
|         (with-environment (env)
|                 (setf counter-fn
|                                                                                 (enclose '(lambda () (incf x)) env))))
| 
| However...
| 
| ? (let ((x 'non-nil-environment))
|     (declare (ignore x))
|     (with-environment (var) var))
| #<BOGUS object @ #x5DF871>
| ?
| 
| Does this work in any Lisp?
| Should it?
--->

Strange you should ask about that, I was reading about
exactly that subject last night!

It is correct that what you're trying to do should not work.
CLtL2 states on top of page 197:

  X3J13 voted in March 1989 <117> to specify that macro environment
  objects received with the &environment argument of a macro function
  have only dynamic extent.

Guillaume.

*********************************************************************
* Guillaume Cartier                 (514) 844-5294 (maison)         *
* L.A.C.I.M.                        (514) 987-4290 (bureau)         *
* Universite du Quebec a Montreal   (514) 987-8477 (telecopieur)    *
* Montreal, Quebec, Canada          cartier@math.uqam.ca (internet) *
*********************************************************************
From: cfry@MIT.EDU (Christopher Fry)
Newsgroups: comp.lang.lisp.mcl
Subject: Re: I Want my own framework...
Date: 18 Nov 92 22:25:37 GMT

Congrats to Dan LaLiberte on separate "applications" within MCL.
Good idea, nice implementation, potentially important implications.

Two little ideas:

>All applications, stored in the list *applications*, are added
> to the Apple menu under the About ... item.

You might also want to put these under the Mac sys 7 apps menu on the
RIGHT of the menu bar. If the goal here is to not have the user care 
whether the app is a lisp-app or not, this would make sense.

____
I use Now Utilities. One of the features I like most about it is that 
you can set up application switching such that it will hide the
windows of the other app whenever you switch apps. This means, of 
course, that you can't simply click on a window of another app to
switch apps, you've got to pick it off a menu. But it means your screen 
isn't cluttered with windows from other apps which is sometimes what you 
want. I'd recommend putting a slot in each app called
HIDE-OTHERS-WHEN-RESUMED?
And have a way that you could easily change the bit for individual apps 
or change all as a group.
From: myoung@magnus.acs.ohio-state.edu (Michael D Young)
Newsgroups: comp.lang.lisp.mcl
Subject: Continuing education
Date: 18 Nov 92 18:17:35 GMT

All,
I originally purchased MCL to write a  small system for use in my dissertation,
 and as far as that goes MCL is a success. However, I am really a novice progra
mmer/Lisper and I have an introductory LISP course under my belt which gets me
about as far as defstruct. No additional courses are available to me at OSU.

Does anyone provide seminars/summer programs that focus on LISP/CLOS/MCL?
I would be willing to travel to attend such a program and even pay fees (both w
ithin reason).

Any suggestions? ( I would prefer a course, I have several good books but a boo
k can only help so much. )

Thanks in advance,
     Michael Young
From: waander@cs.umd.edu (Bill Andersen)
Newsgroups: comp.lang.lisp.mcl
Subject: Basic color use in MCL
Date: 22 Nov 92 08:59:04 GMT
Organization: U of Maryland, Dept. of Computer Science, Coll. Pk., MD 20742


  I just want to draw some stuff in a view in various colors.  I have
an application with a bunch of subviews inside a view inside a window.
The stuff I want to draw is in the innermost subviews...

  I tried the following....

(defclass my-view (view) ())

(defmethod view-draw-contents ((self my-view))
  (with-focused-view self ; maybe this is redundant
    (with-fore-color *fancy-color*
      (with-pstrs ((str "Hello!"))
        (#_DrawString str)))))

  But the string just gets drawn in the default foreground
color of the outermost window.  What's the deal?  Could someone
supply some examples of how to do stuff with colors??  Maybe
post it to the archive????

  Thanks...


  ...bill

-- 
   / Bill Andersen (waander@cs.umd.edu) /
  / University of Maryland             /
 / Department of Computer Science     /
/ College Park, Maryland  20742      /
From: kieras@engin.umich.edu (David Kieras)
Newsgroups: comp.lang.lisp.mcl
Subject: logical pathnames and hosts
Date: 20 Nov 92 16:12:35 GMT

Thanks, everybody, for pointing out the logical
pathname and host facilities as being the kind of thing
I needed to get portability across machines and systems.  It works!
 
As somebody else pointed out, this part of Steele is extremely
obscure -- the very brief treatment in the MCL reference manual
was actually very useful in giving another cut on the problem.
So what is needed in an FAQ is mention of this facility along
with a juicy example.  
 
Thanks again.
From: cfry@MIT.EDU (Christopher Fry)
Newsgroups: comp.lang.lisp.mcl
Subject: Re:  Logical pathname bug?
Date: 21 Nov 92 00:45:04 GMT
Original-To: "Mark A. Tapia" <markt@dgp.toronto.edu>
Original-Cc: info-mcl@cambridge.apple.com

Thanks forthe logical pathname tutorial.
Definitly FAQ material.

From your message:
  Here is the replacement in MCL final which uses logical hosts:
    (setf (logical-pathname-translations "mcl")
          (list (list "mcl:**;*.*"
                      (full-pathname
                        "ccl:**;*.*")))

    (setf (logical-pathname-translations "Utilities")
          (list (list "Utilities:**;*.*"
                      (full-pathname
                        "mcl:utilities;**;*.*"))))


The first arg to logical-pathname-translations, according to
CLtL2 is a "host".
In your example, I can almost believe mcl is a host, but
no way can "Utilities" meet my notion of a "host".
If the way you describe it is in fact how it works, CL2
has sure made the concepts difficult by the misleading 
terminology.
From: jbk@world.std.com (Jeffrey B Kane)
Newsgroups: comp.lang.lisp.mcl
Subject: rlet keyword documentation
Date: 20 Nov 92 17:36:07 GMT


I was wondering where the documentation was for all the possible keywords
that can be used with rlet.  The documentation under rlet doesn't list them
and since it is a compiled macro, there is no way to look at the source and
see what values it tests for.

            Jeffrey
From: millett@sbctri.sbc.com
Newsgroups: comp.lang.lisp.mcl
Subject: handler-case problem?
Date: 18 Nov 92 20:18:06 GMT

So when I enter this form I get this behavior:
? (handler-case (/ pi 0) (DIVISION-BY-ZERO (x) (print x)))
> Error: While compiling an anonymous function :
>        Error: "Can't divide by zero." 
>        signalled during compile-time evaluation of (/ 3.141592653589793 0) .
> Type Command-. to abort.
See the RestartsI menu item for further choices.
1 > (local 7)
#<DIVISION-BY-ZERO #x1924C49>
1 > (type-of (local 7))
DIVISION-BY-ZERO
1 > 
Aborted
? 

Am I doing something wrong or is handler-case used-up?
Thanks.
From: rp23+@andrew.cmu.edu (Ray Pelletier)
Newsgroups: comp.lang.lisp.mcl
Subject: Re: Making a lambda-expr more like a fn
Date: 18 Nov 92 15:59:13 GMT

While reading the messages about turning lambda expressions
into functions, it seemed to me that the following might be reasonable...

(defmacro with-environment ((var) &body body &environment env)
    `(let ((,var ',env))
       ,@body))

In an artificial example..

(let ((x 0))
	(with-environment (env)
	   	(setf counter-fn
										(enclose '(lambda () (incf x)) env))))

However...

? (let ((x 'non-nil-environment))
    (declare (ignore x))
    (with-environment (var) var))
#<BOGUS object @ #x5DF871>
?

Does this work in any Lisp?
Should it?

--Ray Pelletier
From: espen@coli.uni-sb.de (Espen J. Vestre)
Newsgroups: comp.lang.lisp.mcl
Subject: Re: Making a lambda-expr more like a fn
Date: 17 Nov 92 13:38:08 GMT
Organization: Computerlinguistik, Universitaet des Saarlandes
X-Xxmessage-Id: <A72EB32F77034453@mp-mac10.coli.uni-sb.de>
X-Useragent: Nuntius v1.1.1d12
X-Xxdate: Tue, 17 Nov 92 13: 33:19 GMT

In article <9211161528.AA16443@cambridge.apple.com> Bill St. Clair,
bill@cambridge.apple.com writes:
>3) write (funcall 'coerce x 'function) instead of (coerce x 'function)
>   This will be slightly slower than option 2, but I doubt you'll notice.

something which as far as I can see has been left unclear in this
discussion, is the fact that the function returned by (funcall 'coerce x
'function) is _different_ from the one that x itself denotes.  For
instance,
(list
 (progn
   (setq x 'initial-x)
   (list
    (let ((x 'old-value))
      ((lambda ()(setq x 'new-value)))
      x)
    x))
 (progn
   (setq x 'initial-x)
   (list
    (let ((x 'old-value))
      (funcall (funcall 'coerce '(lambda ()(setq x 'new-value))
'function))
      x)
    x)))
evaluates to ((new-value initial-x) (old-value new-value)).
I.e., the effect of (coerce x 'function) is _not_ a function which does
exactly what x would have done in the same lexical position, but rather
the function given by (eval `(function ,x)), i.e. the function x denotes
in a null lexical environment.

A much better idea, I think, is to consequently enclose
lambda-expressions in #' where they are defined, and to include (declare
(special...)) in the lambda expression for those variables which are to
have dynamic scope.
--------------------------------------------------------------
Espen J. Vestre,                          espen@coli.uni-sb.de
Universitaet des Saarlandes,        
Computerlinguistik, Gebaeude 17.2 
Im Stadtwald,                          tel. +49 (681) 302 4501
D-6600 SAARBRUECKEN, Germany           fax. +49 (681) 302 4351
--------------------------------------------------------------
From: iro.umontreal.ca!taarna!kaveh%comback.UUCP@IRO.UMontreal.CA
Newsgroups: comp.lang.lisp.mcl
Subject: un-subscribe
Date: 23 Nov 92 15:19:26 GMT


Please un-subscribe.  Thank you.
From: cartier@math.uqam.ca (Guillaume Cartier)
Newsgroups: comp.lang.lisp.mcl
Subject: Re: Inter-host MCL communications
Date: 16 Nov 92 19:03:28 GMT

<---
| I remember someone saying that "mactcp.lisp"
| doesn't support passive opens very well, but I don't know the details.
--->

The file "Patches:MacTCP-patch.lisp" of Cartier's Contribs
adds passive opens capability to "mactcp.lisp".

*********************************************************************
* Guillaume Cartier                 (514) 844-5294 (maison)         *
* L.A.C.I.M.                        (514) 987-4290 (bureau)         *
* Universite du Quebec a Montreal   (514) 987-8477 (telecopieur)    *
* Montreal, Quebec, Canada          cartier@math.uqam.ca (internet) *
*********************************************************************