HDTenEightyP/NetNews huggingface dataset:
From: cornell@freya.cs.umass.edu
Newsgroups: comp.lang.lisp.mcl
Subject: Bug re-compiling traced methods with keywords
Date: 21 Aug 92 20:01:25 GMT
Original-To: bug-mcl@cambridge.apple.com
Original-Cc: info-mcl@cambridge.apple.com

Enclosed is two files, bug-trace.text (a Listener trace) and bug.lisp.
The compiler warnings are not relevant to this bug. I hope I'm not
missing something (e.g. following behavior is OK).

matt


==== Start bug-trace.text ====
Welcome to Macintosh Common Lisp Version 2.0p1!
? ;; Eval buffer bug.lisp
#<STANDARD-CLASS OBJECT2>
#<STANDARD-CLASS CHANGE2>
;Compiler warnings :
;   Unused lexical variable F-INITIAL-CHANGE2, in NOTE-CHANGE2.
#<STANDARD-METHOD NOTE-CHANGE2 :AROUND (OBJECT2 CHANGE2)>
;Compiler warnings :
;   Unused lexical variable F-INITIAL-CHANGE2, in NOTE-CHANGE2.
#<STANDARD-METHOD NOTE-CHANGE2 (OBJECT2 CHANGE2)>
;Compiler warnings :
;   Undeclared free variable INDEXED-INSTANCE-LINKED-IN, in PROPAGATE-CHANGE2.
#<STANDARD-METHOD PROPAGATE-CHANGE2 (OBJECT2 CHANGE2)>
NIL
? ;; Re-eval def of propagate-change2
> Error: Can't take CAR of #<Compiled-function CCL::%%NTH-ARG-DCODE #x39274E>.
> While executing: CCL::LIST-POSITION/FIND-SIMPLE
> Type Command-. to abort.
See the RestartsI menu item for further choices.
1 > 
==== End bug-trace.text ====

==== Start bug.lisp ====
(defclass object2 ()())
(defclass change2 ()())


(defmethod note-change2 :around ((object2-notified object2) (change2 change2)
                                &key (f-initial-change2 t))
  )


(defmethod note-change2 ((object2-notified object2) (change2 change2)
                        &key (f-initial-change2 t))
  )


(defmethod propagate-change2 ((object2-notified object2) (change2 change2))
  (note-change2 indexed-instance-linked-in change2 :f-initial-change2 nil))


(trace note-change2)
==== End bug.lisp ====
From: doughty@daffy-duck.HQ.Ileaf.COM (Dennis Doughty)
Newsgroups: comp.lang.lisp.mcl
Subject: CLIM-MCL(final)
Date: 15 Aug 92 17:20:46 GMT
Original-To: Forster@informatik.uni-stuttgart.de (Peter Forster)
Original-Cc: info-mcl@cambridge.apple.com


   Date: 13 Aug 92 14:35:06 GMT
   From: Forster@informatik.uni-stuttgart.de (Peter Forster)

   A half year ago we got CLIM 1.0 from ILA for our MAC. This week we
   installed the MAC 2.0 (final version) and recognize that CLIM 1.0
   could not be installed with MAC 2.0, because the binary type of the
   clim files is different of the binary type of  MAC 2.0 (final
   version). Where can we get the new CLIM upgrade for MCL 2.0?

Bill York and I (the original MCL CLIM developers) have acquired the
MCL CLIM product from ILA.  Under the name Illudium Software, we will
continue to develop and distribute MCL CLIM.  Our first task is the
completion of MCL CLIM 1.1 for MCL 2.0 final, which we expect to
deliver shortly (this means a small integer number of weeks, not
months).  MCL CLIM 1.1 will be equivalent to the CLIM 1.1 available
from Symbolics, Lucid, and Franz for their platforms.  Once MCL CLIM
1.1 is shipping, we will turn our attentions to MCL CLIM 2.0, in
conjunction with the CLIM 2.0 efforts of the other vendors.

If you have any other questions, or would like to place an order for
MCL CLIM, please contact me or Bill via direct email or by phone.
We're having some email distribution problems (isn't that always how
it is?), so for the near term you can reach us at:

Dennis Doughty:  doughty@ileaf.com

Bill York:  york@lucid.com

or you may call us at 1-415-968-3656.

-- Dennis Doughty
From: Forster@informatik.uni-stuttgart.de (Peter Forster)
Newsgroups: comp.lang.lisp.mcl
Subject: disable the compiler
Date: 17 Aug 92 13:50:24 GMT
Original-To: info-mcl@cambridge.apple.com




Is it possible to supress the compiler during run-time?
Our program generates and funcalls lambda-expressions during run-time. The
consequence in MCL is - that after each lambda generation - the
compiler is invoked. Calling the compiler wastes a lot of
run time and consequently the run-time behavior of our application is
not the best.

Are there any possibilities in MCL to get a better run-time behavior
for such applications?

Thanks in advance 
	Peter Forster

_____________________________________________________________________________

Peter Forster                              forster@informatik.uni-stuttgart.de
Institut fuer Informatik
Universitaet Stuttgart
Breitwiesenstr. 20/22                      Tel.: (+49 711) 7816-435
D - 7000 Stuttgart 80                      FAX : (+49 711) 780 1045   
______________________________________________________________________________
From: frege@eecs.umich.edu
Newsgroups: comp.lang.lisp.mcl
Subject: Please Remove my name from the mailing list
Date: 21 Aug 92 15:58:22 GMT
Original-To: info-macl@cambridge.apple.com

Thanks.
From: gz@cambridge.apple.com (Gail Zacharias)
Newsgroups: comp.lang.lisp.mcl
Subject: Re: Mailing list vs News Group
Date: 19 Aug 92 17:30:48 GMT
Full-Name: Gail Zacharias
Original-To: info-mcl
X-Mailer: ELM [version 2.2 PL16]

> This is correct - messages posted to comp.lang.lisp.mcl
> are not posted to the info-mcl mailing list (although
> info-mcl messages are posted to the newsgroup). 

Actually, that's NOT true.  We have a bi-directional gateway
between the mailing list and the newsgroup.  Messages posted
to comp.lang.lisp.mcl are forwarded to info-mcl and messages
send to info-mcl are forwarded to comp.lang.lisp.mcl.  Loops
are prevented by not forwarding forwarded messages.

Of course messages posted on comp.lang.lisp.mcl can only be
forwarded to info-mcl if they reach our host (cambridge.apple.com).
So for example if somebody at your site posts a message with
distribution: local, then you will see it in your newsreader
but it will never make it to the mailing list.  Similarly if
a posting from far away gets eaten up by some broken news site
on the way to here.  Or if our news feeds are acting up, as
they had been recently, so we're not getting any news here at
all (they appear to be fixed now)...
From: berger@SOE.Berkeley.Edu (Daniel Berger)
Newsgroups: comp.lang.lisp.mcl
Subject: _numtostring
Date: 13 Aug 92 18:32:58 GMT
Original-To: info-mcl@cambridge.apple.com
X-Mailer: ELM [version 2.3 PL11]


I need to turn an integer into a string -

Does anyone out there know how to make the trap _numtostring work?

Format is too slow.  Without _numtostring it looks like I will have to iterate
over the digits of an integer and then push the individual chars into a vector. 

thanks
Daniel
From: cornell@freya.cs.umass.edu
Newsgroups: comp.lang.lisp.mcl
Subject: Need fast reader of #\Return & #\Tab delimited record files
Date: 18 Aug 92 11:14:42 GMT
Original-To: info-mcl@cambridge.apple.com

Dear Friends:

I need to import (and later export) data records in the standard
format which uses #\Return to delimit records and #\Tab to delimit
fields. Before I write this myself (using mac-file-io.lisp) I'd like
to know if anyone wants to share a working one with me and the
community. To the contributor go a modularized result, dinner in
Amherst, and an obsequious thank you message...

matt
From: jbk@world.std.com (Jeffrey B Kane)
Newsgroups: comp.lang.lisp.mcl
Subject: clos faq
Date: 13 Aug 92 13:24:25 GMT
Original-To: info-mcl@cambridge.apple.com

Does anyone have the complete set of faqs from the comp.lang.clos newsgroup?
This might be a good item to keep on the ftp site at cambridge.apple.com, as
well as to be inserted onto future MCL CD-ROMs (maybe the first bug release?)
 :)
    Jeffrey
From: bill@cambridge.apple.com (Bill St. Clair)
Newsgroups: comp.lang.lisp.mcl
Subject: Re: Function CCL::STRUCTURE-SLOT-NAMES undefined.
Date: 12 Aug 92 18:48:37 GMT
Full-Name: Bill St. Clair
Original-To: frege@crim.eecs.umich.edu
Original-Cc: info-mcl

>When apropos'd STRUCTURE-SLOT-NAMES exists in COMMON-LISP-USER package.
>However, I can't use it in MCL 2.0. How do I access the function?

There is no such symbol in MCL 2.0. Did you perhaps inadvertently intern
it yourself by passing it to APROPOS? It is best to always pass strings, not
symbols to APROPOS:

Welcome to Macintosh Common Lisp Version 2.0!
? (apropos "STRUCTURE-SLOT")
INSPECTOR::STRUCTURE-SLOTS, Def: FUNCTION
CCL::STRUCTURE-SLOT-VALUE, Def: FUNCTION
CCL::STRUCTURE-SLOT-INDEX, Def: FUNCTION
? (apropos "STRUCTURE-SLOT-NAMES")
? (apropos 'structure-slot-names)
STRUCTURE-SLOT-NAMES
? (symbol-package 'structure-slot-names)
#<Package "COMMON-LISP-USER">
? 

There is no exported way to get the names of the slots of a structure.
You can do by accessing MCL internals, but any code that does that
is likely to break in the future (structure classes do not contain
any slot definition objects in MCL. It would solve your problem if
they did). That said, here is some code that works for me in MCL 2.0:

---------------------------------------------------------------------

(in-package :ccl)

(export 'structure-slot-names)

(eval-when (:compile-toplevel :execute)

(defmacro sd-slots (sd) `(%svref ,sd 1))

)


(defun structure-slot-names (structure-type)
  (let ((sd (gethash structure-type %defstructs%))
        res)
    (unless sd
      (error "There is no structure named ~s" structure-type))
    (dolist (slotd (sd-slots sd))
      (let ((slot-name (car slotd)))
        (when (symbolp slot-name)
          (push slot-name res))))
    (nreverse res)))

#|
? (defstruct foo x y z)
FOO
? (structure-slot-names 'foo)
(X Y Z)
? 
|#
From: frege@eecs.umich.edu
Newsgroups: comp.lang.lisp.mcl
Subject: Support for Accelerated Macs?
Date: 17 Aug 92 17:30:13 GMT
Original-To: info-macl@cambridge.apple.com


   Hi, we have a Mac SE with a Radius 16 Mhz Accelerator, and MCL doesn't
seem to be comfortable with exotic CPU boards added on the REAL Apple MACs.

   Since I assume there are quite some people out there with accelerator
boards, will there be any support for those machines?

   MCL loads and run fine until it begins to evaluate a lot of functions....
and it bombs with System Error #11 -- Something like 68000 Trap Error or
similar.

   I guess Garbage Collection and all those things require quite intimate
relationship with the CPU. But is there any way to make MCL think it is a
68020 machine rather than a 68000 machine?

- Young-pa So (e-mail : frege@crim.eecs.umich.edu)
From: myoung@magnus.acs.ohio-state.edu (Michael D Young)
Newsgroups: comp.lang.lisp.mcl
Subject: Re: Support for Accelerated Macs?
Date: 17 Aug 92 22:31:47 GMT
Original-To: frege@eecs.umich.edu
Original-Cc: info-macl@cambridge.apple.com (Macintosh Common Lisp Bulletin Board)
X-Mailer: ELM [version 2.3 PL11]

>
> 
>    Hi, we have a Mac SE with a Radius 16 Mhz Accelerator, and MCL doesn't
> seem to be comfortable with exotic CPU boards added on the REAL Apple MACs.
> 
>    Since I assume there are quite some people out there with accelerator
> boards, will there be any support for those machines?
> 
>    MCL loads and run fine until it begins to evaluate a lot of functions....
> and it bombs with System Error #11 -- Something like 68000 Trap Error or
> similar.
> 
>    I guess Garbage Collection and all those things require quite intimate
> relationship with the CPU. But is there any way to make MCL think it is a
> 68020 machine rather than a 68000 machine?
> 
> - Young-pa So (e-mail : frege@crim.eecs.umich.edu)
> 

I have an SE with a Mobius accelerator board and have had no trouble so far.
Michael Young
From: moon (David A. Moon)
Newsgroups: comp.lang.lisp.mcl
Subject: Re:  LISP FFI to C
Date: 21 Aug 92 15:06:49 GMT
Full-Name: David Moon
Original-To: cfry@MIT.EDU (Christopher Fry)
Original-Cc: Bruce Lester <72110.1107@CompuServe.COM>, info-mcl@cambridge.apple.com,
        kgrant@us.oracle.com, york@lucid.com, jonl@lucid.com,
        swm@scrc.symbolics.com, rwk@crl.dec.com

> Date: Thu, 20 Aug 92 23:37:23 EST
> From: cfry@MIT.EDU (Christopher Fry)
> 
> Could it be arranged such that the CL function LOAD recognized when it was passed
> a C object file, a C header file, or a lisp file and did the right thing?

Implementation-dependent, obviously.  On the Macintosh, object files for C (and all 
other MPW-based static languages) are self-identifying, but on other systems it 
might not be possible to distinguish a C object file from some other kind of file.  
At the other extreme, on Symbolics Genera a Lisp object file and a C object file are 
in identical formats and loaded identically, and I imagine this is true in KCL as 
well.

There is no good, portable way to tell a C source file from a Lisp source file, 
especially if the Lisp user has modified the readtable.  However, there might be 
some bad ways, such as assuming that "(in-package" not preceded by a { is unlikely 
to be valid C.

If you want this additional feature that the programmer doesn't have to know what 
language things are written in to load them, that would create some additional 
things that the vendors would need to agree on in order to create a standard.
From: bill@cambridge.apple.com (Bill St. Clair)
Newsgroups: comp.lang.lisp.mcl
Subject: Re: CANCEL: opening files from the Finder
Date: 14 Aug 92 20:50:06 GMT
Full-Name: Bill St. Clair
Original-To: djskrien@COLBY.EDU (Dale Skrien)
Original-Cc: info-mcl

>Please ignore my last request for help about opening files from the Finder.
>I just found the definition of the open-documents-handler method on the CD
>ROM and think I can get what I need by modifying that for my app.

Patch 1 for MCL 2.0 will make OPEN-DOCUMENTS-HANDLER call the
OPEN-APPLICATION-DOCUMENT generic function for each file passed
in the appleevent. The OPEN-APPLICATION-DOCUMENT generic function
is passed two arguments: *APPLICATION* and a pathname for the file.
The method specialized on the APPLICATION class opens opens text
files with FRED or loads fasl files. You can define your own
subclass of APPLICATION and set *APPLICATION* to an instance of
this class to cause your method on OPEN-APPLICATION-DOCUMENT to
be invoked.

PRINT-DOCUMENTS-HANDLER similarly calls PRINT-APPLICATION-DOCUMENT.

The deafult MCL startup code (which will run if you do not pass a
:TOPLEVEL-FUNCTION argument to SAVE-APPLICATION) also does its
open and print handling by calling OPEN-APPLICATION-DOCUMENT or
PRINT-APPLICATION-DOCUMENT.

Patch 1 for MCL 2.0 is now in beta test. It should be shipping soon.
I will send you a copy of the "appleevents-patch" which implements
this new feature if you would like to start using it before patch
1 ships.
From: Forster@informatik.uni-stuttgart.de (Peter Forster)
Newsgroups: comp.lang.lisp.mcl
Subject: CLIM-MCL(final)
Date: 13 Aug 92 14:35:06 GMT
Original-To: Info-MCL@Cambridge.Apple.COM






A half year ago we got CLIM 1.0 from ILA for our MAC. This week we
installed the MAC 2.0 (final version) and recognize that CLIM 1.0
could not be installed with MAC 2.0, because the binary type of the
clim files is different of the binary type of  MAC 2.0 (final
version). Where can we get the new CLIM upgrade for MCL 2.0?

Thanks in advance

	Peter Forster

PS: The mail-address bug-clim@ila.com is dead
_____________________________________________________________________________

Peter Forster                              forster@informatik.uni-stuttgart.de
Institut fuer Informatik
Universitaet Stuttgart
Breitwiesenstr. 20/22                      Tel.: (+49 711) 7816-435
D - 7000 Stuttgart 80                      FAX : (+49 711) 780 1045   
______________________________________________________________________________
From: frege@eecs.umich.edu
Newsgroups: comp.lang.lisp.mcl
Subject: Stack Overflow Error
Date: 15 Aug 92 00:43:51 GMT
Original-To: info-macl@cambridge.apple.com


   Here is what I get:

> Error: Stack overflow.
> While executing: #<STANDARD-METHOD FOCUS-VIEW (SIMPLE-VIEW)>
> Type Command-. to abort.

   Is there a way to set the size of the system stack space?

- Young-pa So
From: berni@iml.fhg.de (Stefan Bernemann)
Newsgroups: comp.lang.lisp.mcl
Subject: Mailing list vs News Group
Date: 18 Aug 92 07:07:00 GMT
Original-To: straz@cambridge.apple.com
Original-Cc: info-mcl@cambridge.apple.com


    Date: Mon, 17 Aug 1992 23:13 MEST
    From: Steve Strassmann <straz%cambridge.apple.com@fhg.de>

    >Date: Mon, 17 Aug 92 16:00:30 -0400
    >Sender: cartier@mipsmath.math.uqam.ca
    >To: info-mcl@cambridge.apple.com (Macintosh Common Lisp)
    >From: cartier@math.uqam.ca (Guillaume Cartier)
    >Subject: Mailing list vs News Group
    >
    >A few weeks ago I got access to a usenet news reader
    >and tried out the comp.lang.lisp.mcl group. After reading
    >the news for a few weeks, I noticed that some messages
    >appearing on the news group never make it to the mailing
    >list. Did anyone else notice the same problem?
    >


    This is correct - messages posted to comp.lang.lisp.mcl
    are not posted to the info-mcl mailing list (although
    info-mcl messages are posted to the newsgroup). 

    I am not aware of any system which would permit doing this
    without creating the kinds of infinite loops (and duplicate
    messages) we saw just recently on this list. If you have
    a dependable solution in mind, feel free to let us know.

We don't have access to usenet right now, but I remember vaguely from
ancient days ;-( that newsgroups which are marked as "moderated" get all
responses mailed to the "moderators" address - the moderator is then
responsable for feeding them back into usenet via some news agent like
inews or whatever. So if the moderator's task is just to combine usenet
responses and the mailing list and not to review the responses, this
could be automated without looping or duplicating messages - or I missed
something. 

Stefan B.

Mail: Stefan Bernemann        ! Phone:  +49-231-9743-139
      c/o FhG IML Dortmund    ! Fax:    +49-231-9743-234
      Emil-Figge-Str. 75      ! Email:  berni@iml.fhg.de
      D-4600 Dortmund 50, FRG !
From: bill@cambridge.apple.com (Bill St. Clair)
Newsgroups: comp.lang.lisp.mcl
Subject: Re: can't find help file in standalone
Date: 21 Aug 92 17:36:31 GMT
Full-Name: Bill St. Clair
Original-To: wilcox@cmns.think.com
Original-Cc: info-mcl

>I'm using the file help-manager.lisp to add help balloons to my application,
>and it works well. However, when I create a standalone and turn on help,
>a dialog box appears with a message saying that it can't find some help
>file, and do I wish to locate it? My help specs are in the application code
>itself, not in a separate resource file or fork. How do I avoid this dialog?

First, the two files "ccl:library;help-manager.lisp" and
"ccl:library;resources.lisp" must be loaded into your application.

Second, if you do not use a resource file for your application,
you should specialize one of the methods: 

    ccl::help-resource-file
    ccl::help-resource-file-refnum

The easiest way to do this is:

(defclass my-application (application) ())

(setq *application* (make-instance 'my-application))

(defmethod ccl::help-resource-file ((app my-application))
  nil)

If you carefully peruse the source to "ccl:library;help-manager.lisp",
you will see why this works.
From: bill@cambridge.apple.com (Bill St. Clair)
Newsgroups: comp.lang.lisp.mcl
Subject: Re: SET method not defined automatically...
Date: 14 Aug 92 20:50:26 GMT
Full-Name: Bill St. Clair
Original-To: frege@eecs.umich.edu
Original-Cc: info-mcl

>   
>   I meant SETF not SET.
>
>   In the following file, a customized version of defstruct is defined
>but when I use it with MCL 2.0 the SETF methods for each of its slots
>seems not to be defined automatically. This was not the case in MACL 1.3.2.
>
> [Code omitted]

Works fine for me. Please send example forms that illustrate the omission
of the SETF methods.

I have assumed the following definitions for the functions that you did
not include:

-----------------------------------------------------------------------

(defun string-concatenate (&rest strings)
  (apply 'concatenate 'string strings))

(defun mapc-condcons (function list)
  (let ((res nil))
    (dolist (element list)
      (let ((res-el (funcall function element)))
        (when res-el (push element res))))
    (nreverse res)))

(eval-when (:compile-toplevel :execute)

(defmacro sd-slots (sd) `(%svref ,sd 1))

)

(defun structure-slot-names (structure-type)
  (let ((sd (gethash structure-type ccl::%defstructs%))
        res)
    (unless sd
      (error "There is no structure named ~s" structure-type))
    (dolist (slotd (sd-slots sd))
      (let ((slot-name (car slotd)))
        (when (symbolp slot-name)
          (push slot-name res))))
    (nreverse res)))
Newsgroups: comp.lang.lisp.mcl
From: owens@jonquil.uchicago.edu (Christopher Owens)
Subject: window-size-parts
Organization: Dept of Computer Science, The Univ of Chicago
Date: Fri, 14 Aug 1992 20:43:32 GMT


I'm playing with the window-size-parts generic function of MCL2.0

It seems that the default initialize-instance method for windows is
calling window-size-parts at some point in processing before the views
specified as a :view-subviews initarg have been added to the window.

I grotesquely hacked around this by
  1) writing my window-size-parts method to do nothing if 
     view-subviews of the window is of length 0, and
  2) adding an initialize-instance :after method on my window
     class that calls window-size-parts again.

But there has to be a better way. Ideas?

Abstracting a bit, has anyone put together a little constraint
language for specifying the internal geometry of windows that are apt
to get resized?  Something like application-frame layout parameters in
CLIM strikes me one promising approach, for example.
From: epl@luwish.zko.dec.com ("Ed Luwish -- Far Fig Newton!")
Newsgroups: comp.lang.lisp.mcl
Subject: Re: Mailing list vs News Group
Date: 17 Aug 92 20:22:15 GMT
Original-To: info-mcl%cambridge.apple.com@inet-gw-1.pa.dec.com
Original-Cc: epl@luwish.zko.dec.com
X-Mts: smtp

I don't think the gateway is bidirectional.  Anything mailed to the info-mcl
gets posted to the usenet, but nothing posted to usenet via news readers (like
rn) gets mailed to the list.  This ought to prevent multiple mailings.

Since more of us have mail than rn access to the world, and everything mailed
gets distributed, it stands to reason that we ought to mail rather than post.

At least that's my take on the problem.
From: hmadorf@eso.org
Newsgroups: comp.lang.lisp.mcl
Subject: science plots
Date: 19 Aug 92 12:02:16 GMT
Original-To: info-mcl@cambridge.apple.com


Hi netters,

I presume I am not the first one wanting to graph vectors and
functions from Lisp. So my question is:

Is there a recommendable package out there in the public domain that 
generates science plots (scatter plots, line plots, histograms etc.) 
callable from within MCL. I would not mind (executable)
C-code, as long as I can call it transparently from Lisp via the FFI.

I would appreciate most to know of a package that could be called
from Franz Allegro as well.

I will summarize if I get more than one reply.

Thanks.

Hans-Martin Adorf
ST-ECF/ESO
Garching b. Muenchen
FR Germany