HDTenEightyP/NetNews huggingface dataset:
uunet!mcsun!Germany.EU.net!sbsvax!coli-gate.coli.uni-sb.de!mp-mac10.coli.uni-sb.de!espen
From: espen@coli.uni-sb.de (Espen J. Vestre)
Subject: ptable bug??
Organization: Computerlinguistik, Universitaet des Saarlandes
Distribution: co
Date: 19 Nov 92 10:37:29 GMT
X-Note1: mail msgid was <1992Nov19.103729.14492@coli.uni-sb.de>
X-Note2: message-id generated by recnews

I think the following Message I posted two weeks ago may never have hit
the net:

hello everybody-

I _think_ there might be a subtile bug in the ptable init:
   I just set up my Quadra on my office desk after having used it at home
for a few days.  Normally, this is not a painful reinstallation, but this
time, I wasn't able to get the ethernet connection going, that is: The
Network CDEV wasn't able to activate the ethernet connection for me, and
warned me that it selected the localtalk connection instead.
    I picked out network inits and cdevs, one after the other, restarted
between each, but still the mac responded that it couldn't set up the
ethernet connection.
As a last try (after a dozen restarts) I removed the ptable init (after
all, I didn't have _that_ the last time I reconnected the mac to the
ethernet...), and voila! it worked!
--------------------------------------------------------------
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: mcdougal@cs.uchicago.edu (Tom McDougal)
Newsgroups: comp.lang.lisp.mcl
Subject: basic view-key-event-handler confusion
Date: 17 Nov 92 21:52:12 GMT
Organization: Univ. of Chicago Computer Science
X-Xxmessage-Id: <A72EC3752B011453@tango.uchicago.edu>
X-Xxdate: Tue, 17 Nov 92 21:42:45 GMT
X-Useragent: Nuntius v1.1.1d12

Please help.

There is something *very basic* that I don't understand about 
view-key-event-handlers, despite having read and re-read
the docs and sample code a hundred times.  Here is a simple 
example that fails to handle key events -- all keystrokes go 
to the listener:

(defclass simple-key-handling-view (dialog-item)
  ()
  )

;;; When you get a keystroke, draw that character.
;;;  ***BUT NOTHING HAPPENS

(defmethod view-key-event-handler ((item simple-key-handling-view)
char)
  "Just print the character in the view."
  (when (integerp char) (setq char (code-char char)))  ; (why?)
  (move-to item 20 20)
  (format item "~c" char))

(setq *w* (make-instance 'window))
(setq *v* (make-instance 'simple-key-handling-view
            :view-position #@(4 4)
            :view-size #@(200 200)))

(add-subviews *w* *v*)

;;; (key-handler-p *v*)  --> NIL


Please don't tell me to use an instance of some text dialog
item; I want to do something very special with the keystrokes,
and anyway there must be a simpler way...

Many, many thanks for your kind attention.

----------------------------------------------------------------------
-Tom McDougal          mcdougal@cs.uchicago.edu         (312) 702-0024
Dept. of Computer Science, University of Chicago
From: gat@forsight2.jpl.nasa.gov (Erann Gat)
Subject: Re: Adding MOVEM to LAP
Organization: Jet Propulsion Laboratory
Date: Sat, 21 Nov 1992 00:18:58 GMT

In article <1992Nov21.001415.9644@elroy.jpl.nasa.gov> I write:
>(Don't reply to this message.  Its return address (gat@forsight2) will
>not work.)

It seems my news poster is smarter than I thought, and is doing the
right thing with my return address, so you can go ahead and reply to
my postings and it should work.  (Unfortunately, my news reader is not
smart enought to let me cancel articles.  Sorry.)

Erann Gat
gat@robotics.jpl.nasa.gov
gat@aig.jpl.nasa.gov
From: gat@robotics.jpl.nasa.gov (Erann Gat)
Subject: Adding MOVEM to LAP
Organization: Jet Propulsion Laboratory
Distribution: co
Date: 21 Nov 92 00:14:15 GMT
X-Note1: mail msgid was <1992Nov21.001415.9644@elroy.jpl.nasa.gov>
X-Note2: message-id generated by recnews

The LAP assembler doesn't seem to handle the MOVEM instruction.  LAP is
supposed to be extensible (via the DEFLAPGEN macro).  Has anyone added
MOVEM before I start reinventing the wheel?

Thanks,
Erann Gat
gat@aig.jpl.nasa.gov
gat@robotics.jpl.nasa.gov
(Don't reply to this message.  Its return address (gat@forsight2) will
not work.)
From: jwbaxter@halcyon.halcyon.com
Newsgroups: comp.lang.lisp.mcl
Subject: Re: Questions about MCl and System 7
Date: 19 Nov 92 08:17:01 GMT

>I recently upgraded my Mac IIcx to System 7.1.  I also put 20M RAM on my
>machine (I've loaded mode32 to address the extra memory) and gave MCL 14M
>to address (via the info box).
>
>Are there any known problems out there?  With 7.1?  With 32 bit addressing?
>With a cx/mode 32?  Any combination of the above?
>
Daniel,
   Mode32 is incompatible with something new.  My memory says that it's
System 7.1, rather than the October 19th Macs.  Apple will soon release an
"enabler" which will do the job Mode32 has been doing.
   You might want to fall back to 7.0.1 until then.  --John

--------------
John W. Baxter   jwbaxter@halcyon.com   [BAXTER.JOHN on AppleLink, from
AppleLink only.]
From: bill@cambridge.apple.com (Bill St. Clair)
Newsgroups: comp.lang.lisp.mcl
Subject: Re: Inter-host MCL communications
Date: 16 Nov 92 16:35:59 GMT
Article-I.D.: cambridg.9211161530.AA16605

At 23:58 11/11/92 +0036, Peter Paine wrote:
>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.

At  8:21 11/16/92 +0000, Ranson wrote:
>Try eval-server in the examples folder. It will allow you to EVAL expressions
>on another Mac.
>     Daniel.

Daniel is right about the eval server, but it may not be fast enough
for you.

The file "ccl:library;mactcp.lisp" provides a TCP stream. It does NOT
provide good support for one of the sides of the connection being a server.
To do this right, you really need multiple threads, which MCL doesn't
have (yet). I'm sure you can do it with polling in the existing MCL,
but that solution will not work very well if any of the requested
services takes a long time. I remember someone saying that "mactcp.lisp"
doesn't support passive opens very well, but I don't know the details.
From: cartier@math.uqam.ca (Guillaume Cartier)
Newsgroups: comp.lang.lisp.mcl
Subject: Printing Blues (was "printing .lisp files")
Date: 17 Nov 92 20:38:44 GMT
Original-To: bright@ENH.NIST.GOV
X-Sender: cartier@mipsmath.math.uqam.ca
Original-Cc: info-mcl@cambridge.apple.com (Macintosh Common Lisp)

<---
| When I print my .lisp files (in Fred Windows), they print with a header
| that has the file name, date, page number.  When the path to the file is
| long, the header gets garbled by overprinting.  Anyone know how to make the
| header print out on more than one line so that all of the info is readable?
--->


Here's a very simple hack I use daily.
The file name in the header will be truncated to only the file namestring.

It should be simple to adapt to your own preferences
(i.e. truncating file names longer than 50 chars, etc...).

To understand the hack, look at the source for the draw-hardcopy method.


(in-package "CCL")

(defvar *hardcopying*
  nil)

(advise (:method draw-hardcopy (fred-window))
        (let ((*hardcopying* t))
          (:do-it))
        :when :around
        :name :hardcopy-header)

(advise namestring
        (if (not *hardcopying*)
            (:do-it)
          (mac-file-namestring (:do-it)))
        :when :around
        :name :hardcopy-header)

*********************************************************************
* 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: 72110.1107@CompuServe.COM (Bruce Lester)
Newsgroups: comp.lang.lisp.mcl
Subject: Paradigms of AI by Peter Norvig
Date: 23 Nov 92 15:58:42 GMT

Does anyone know where I can get "Paradigms of AI by Peter Norvig"?  Publisher
name and address.

Bruce Lester
Pillsbury
From: kab (Kim Barrett)
Newsgroups: comp.lang.lisp.mcl
Subject: Re: file access FAQ
Date: 19 Nov 92 15:33:53 GMT

> This should be an FAQ:  What's a good way to access files in
> different directories in MCL, in a way that will not require code
> changes to run in other CL implementations or on other  Macs, and
> allows some independence of the directory hierarchy?   
> 
> ...
> 
> It isn't intuitively obvious how to do this in MCL in a way that
> will allow the code to similarly load correctly without being
> changed across machines or platforms. So the solution has to be
> pure CL, but using aliases to mimic links would be fine too. 
> 
> E.g. the ugly thing I am doing now is to spell out the complete
> path in the loads, and then when I move the code to another Mac
> or machine, I alter the paths in the code with a global
> substitution;  I constrain the Macs to have isomorphic file
> structures, so only the name of the disk drive has to be changed.
> Expedient, but ugly, and a constant nuisance.
> 
> A better approach would be appreciated!

Use logical pathnames (CLtL2, p.628).
Newsgroups: comp.lang.lisp.mcl
From: squeegee@world.std.com (Stephen C. Gilardi)
Subject: Re: The Radius Rocket MCL Incantation?
Organization: SQ Software via The World Public Access UNIX, Brookline, MA
Distribution: na
Date: Mon, 23 Nov 1992 23:31:06 GMT

firby@avarice.uchicago.edu (Jim Firby) writes:

>There has been some discussion lately about running MCL on the Radius
>Rocket.  Well, I just got one and everything runs but MCL.

>Could someone who has it working send me the magic incantation that I
>need?  Do I need a particular combination of System 7 and the TuneUp?
>Do I need some strange patch?  Do I have to make sure that my Mac
>faces the rising sun?

It works for me.  I'm using System 7.0.1, Tuneup 1.1.1, Mac IIci with
20 MB, Rocket with 32 MB.  The ptable init crashes, so I don't use it.
RocketWare 1.3 (not 1.3.2) for the Rocket.  I don't use 1.3.2 because
1.3 seems more stable to me.

If you'd like to compare notes further, please send mail.

Good luck,

--Steve

Stephen C. Gilardi
SQ Software
squeegee@world.std.com
From: espen@coli.uni-sb.de (Espen J. Vestre)
Newsgroups: comp.lang.lisp.mcl
Subject: ptable bug??
Date: 19 Nov 92 10:37:29 GMT
Organization: Computerlinguistik, Universitaet des Saarlandes
X-Xxmessage-Id: <A7312DF5F5014453@mp-mac10.coli.uni-sb.de>
X-Useragent: Nuntius v1.1.1d12
X-Xxdate: Thu, 19 Nov 92 10: 41:41 GMT

I think the following Message I posted two weeks ago may never have hit
the net:

hello everybody-

I _think_ there might be a subtile bug in the ptable init:
   I just set up my Quadra on my office desk after having used it at home
for a few days.  Normally, this is not a painful reinstallation, but this
time, I wasn't able to get the ethernet connection going, that is: The
Network CDEV wasn't able to activate the ethernet connection for me, and
warned me that it selected the localtalk connection instead.
    I picked out network inits and cdevs, one after the other, restarted
between each, but still the mac responded that it couldn't set up the
ethernet connection.
As a last try (after a dozen restarts) I removed the ptable init (after
all, I didn't have _that_ the last time I reconnected the mac to the
ethernet...), and voila! it worked!
--------------------------------------------------------------
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: kieras@engin.umich.edu (David Kieras)
Newsgroups: comp.lang.lisp.mcl
Subject: file access FAQ
Date: 19 Nov 92 14:40:28 GMT

This should be an FAQ:  What's a good way to access files in
different directories in MCL, in a way that will not require code
changes to run in other CL implementations or on other  Macs, and
allows some independence of the directory hierarchy?   

That is, my code consists of many projects, which I like to keep
in their own folders and sub-folders, but which share code which
I want to have only a single copy of, and which exists at more
than one level.  Some of the shared code is used by two or more
different families of projects, and each family shares code
internally as well. The loading for a project is done by a set of
loads in a file for each project.   So when I load up a project,
I need to load code not just from the local directory, but from
all over the place.  

Furthermore, I move the code between different Macs, and would
like to be able to move it to different CL implementations and
platforms, with no changes in the loading code.

On my Apollos, this is easy: the loads describe a file whose path
was of the form "link-name/file-name" and then with the shell I
would just define links to point to whatever directories the
files were in on that machine (even to a different machine on the
network) and so the lisp code didn't have to be changed to
reflect the file structure of the machine, or even which lisp
implementation on which kind of unix machine it was on.   

It isn't intuitively obvious how to do this in MCL in a way that
will allow the code to similarly load correctly without being
changed across machines or platforms. So the solution has to be
pure CL, but using aliases to mimic links would be fine too. 

E.g. the ugly thing I am doing now is to spell out the complete
path in the loads, and then when I move the code to another Mac
or machine, I alter the paths in the code with a global
substitution;  I constrain the Macs to have isomorphic file
structures, so only the name of the disk drive has to be changed.
Expedient, but ugly, and a constant nuisance.

A better approach would be appreciated!
From: akyurek@niscale.LeidenUniv.nl (Aladin Akyurek)
Newsgroups: comp.lang.lisp.mcl
Subject: C to CL Converter
Date: 23 Nov 92 20:33:29 GMT

Is there a reasonable system that can convert
ANSI C programs (i.e., those *.c's) into CL?

Thanks,

-Aladin
From: news@midway.uchicago.edu (News Administrator)
Newsgroups: comp.lang.lisp.mcl
Subject: Re: Paradigms of AI by Peter Norvig
Date: 23 Nov 92 17:18:44 GMT
Organization: University of Chicago Computing Organizations

In <921123155841_72110.1107_CHL58-1@CompuServe.COM> 72110.1107@CompuServe.COM (Bruce Lester) writes:

>Does anyone know where I can get "Paradigms of AI by Peter Norvig"?  Publisher
>name and address.


Morgan Kaufmann
2929 Capus Drive 
San Mateo CA 94403
Newsgroups: comp.lang.lisp.mcl
From: mcdougal@cs.uchicago.edu (Tom McDougal)
Subject: basic view-key-event-handler confusion
Organization: Univ. of Chicago Computer Science
Distribution: co
Date: 17 Nov 92 21:52:12 GMT
X-Note1: mail msgid was <1992Nov17.215212.7762@midway.uchicago.edu>
X-Note2: message-id generated by recnews

Please help.

There is something *very basic* that I don't understand about 
view-key-event-handlers, despite having read and re-read
the docs and sample code a hundred times.  Here is a simple 
example that fails to handle key events -- all keystrokes go 
to the listener:

(defclass simple-key-handling-view (dialog-item)
  ()
  )

;;; When you get a keystroke, draw that character.
;;;  ***BUT NOTHING HAPPENS

(defmethod view-key-event-handler ((item simple-key-handling-view)
char)
  "Just print the character in the view."
  (when (integerp char) (setq char (code-char char)))  ; (why?)
  (move-to item 20 20)
  (format item "~c" char))

(setq *w* (make-instance 'window))
(setq *v* (make-instance 'simple-key-handling-view
            :view-position #@(4 4)
            :view-size #@(200 200)))

(add-subviews *w* *v*)

;;; (key-handler-p *v*)  --> NIL


Please don't tell me to use an instance of some text dialog
item; I want to do something very special with the keystrokes,
and anyway there must be a simpler way...

Many, many thanks for your kind attention.

----------------------------------------------------------------------
-Tom McDougal          mcdougal@cs.uchicago.edu         (312) 702-0024
Dept. of Computer Science, University of Chicago
From: bright@ENH.NIST.GOV
Newsgroups: comp.lang.lisp.mcl
Subject: memory checking functions
Date: 23 Nov 92 15:14:34 GMT

Are there functions out there that return the amount of memory available so
that functions can warn the user when it gets low?  Something akin to
(room) that returns values rather than printing to *standard-output*?

Thanks
--Dave
David S. Bright                        bright@enh.nist.gov  
Microanalysis Research Group                                   
National Institute of Standards & Technology (NBS)
Gaithersburg, MD 20899                                           
USA
301-975-3911
From: jbk@world.std.com (Jeffrey B Kane)
Newsgroups: comp.lang.lisp.mcl
Subject: Re: Basic color use in MCL
Date: 23 Nov 92 18:17:32 GMT

Bill,
 A couple of mistakes:

(defclass TWindow (window)
  nil) ; a dull class

(defvar temp (make-instance 'TWindow :window-title "Dull Window"))

(defmethod view-draw-contents ((self TWindow))
  (with-fore-color *red-color*
    (with-pstrs ((str "hello"))
      (move-to self 40 40) ; default pen position is 0,0 so you won't see anything
      (#_DrawString str))
  (move-to self 40 80)Hello againHello again
  (format self "Hello again")))

(with-focused-view temp
(view-draw-contents temp))
 

Note that MCL will focus the view for you before it calls your 
view-draw-contents. You only need to focus it again if you call 
view-draw-contents on another view that's not in the normal drawing 
event chain.

Since you are defining a primary method you -- may -- want to call
(call-next-method) so you don't shadow the default draw method for
that view.  I usually define an :after method for most drawing routines.

Last of all the problem you may be having is that you didn't move the 
pen to a visible part of the view.  The default is 0,0 which puts the
text up out of the content area of the window.

The only other item of note is that you can use Lisp's format statement
to draw into windows since they are streams in Lisp. This can make 
formating a lot easier for a lot of applications.

    Jeffrey

P.S. How's U-of-M? I haven't been back their for years (Chem Eng Terp '79)


======================================
Jeffrey Kane, MD
Kane Biomedical Systems
Boston, MA

Internet    jbk@world.std.com
Compuserve  74206,640
AppleLink   D0738

[Don't take life too seriously... it's not like anyone gets out of it alive.]
From: jbk@world.std.com (Jeffrey B Kane)
Newsgroups: comp.lang.lisp.mcl
Subject: Binary manipulation
Date: 23 Nov 92 16:30:46 GMT


What is the best way to do binary manipulation of data within MCL?
I need to do the equivalent of shifts, ands, nors, ors, etc., but the problem
I'm having is doing these with integers and fixnums  How would you convert the following
to mcl:

{
	short var1 47;
	unsigned long var2 0x322459;

	*((var1 & 0x7 << 3) + var2)
}

going back and forth between MCL fixnum and bit-arrays (without losing data)?

	Jeffrey


======================================
Jeffrey Kane, MD
Kane Biomedical Systems
Boston, MA

Internet    jbk@world.std.com
Compuserve  74206,640
AppleLink   D0738

[Don't take life too seriously... it's not like anyone gets out of it alive.]
From: cartier@math.uqam.ca (Guillaume Cartier)
Newsgroups: comp.lang.lisp.mcl
Subject: Re: handler-case problem?
Date: 18 Nov 92 20:26:08 GMT

This one should certainly go into a MCL FAQ.
Almost everyone got bite by this one at one time or another.

<---
| 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.
--->

The problem is that the error occurs during compilation. The compiler
recognizes 0 as a constant and sees that a division by zero must occur
and so saves you from the error occuring at runtime.

Try the following:

(let ((x 0))
  (handler-case (/ pi x) (DIVISION-BY-ZERO (x) (print x))))

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: berger@SOE.Berkeley.Edu (Daniel Berger)
Newsgroups: comp.lang.lisp.mcl
Subject: Questions about MCl and System 7
Date: 19 Nov 92 00:56:10 GMT


I recently upgraded my Mac IIcx to System 7.1.  I also put 20M RAM on my
machine (I've loaded mode32 to address the extra memory) and gave MCL 14M
to address (via the info box).

Unfortunately, MCL has "unexpectedly quit" several times on me already.
I have not loaded the environment up yet - I have just been playing with
little, basic things.  The crashes have occurred at "random" times.  Although,
it does seem that a couple of the incidents have occurred when I have called
"choose-file-dialog" or I have "open"ed a fred file (which I assume calls
"choose-file-dialog" too).

Are there any known problems out there?  With 7.1?  With 32 bit addressing?
With a cx/mode 32?  Any combination of the above?

Thanks
Daniel
From: cartier@math.uqam.ca (Guillaume Cartier)
Newsgroups: comp.lang.lisp.mcl
Subject: Re: rlet keyword documentation
Date: 23 Nov 92 16:06:30 GMT

<---
|     From: jbk@world.std.com (Jeffrey B Kane)
|     
|     > I was wondering where the documentation was for all the possible keywords
|     > that can be used with rlet...    
|     Well at the risk of talking to myself, I found the answer and wanted to post it
|     in case it wasn't obvious to anyone else.  It turns our that there are two global
|     variables:
|     
|                          *record-types* ...
| 
| Michael Travers replies:
|
|   Try evaluating (ccl::load-all-records) before looking at this
|   variable, and you will find that there are many more possible record
|   types (436, in my world).  rlet and other forms that refer to record
|   types load these definitions automatically upon reference.
--->

Here's another solution that will take much less time (4 seconds on my quadra)
because it won't actualy load all the record definitions:

(defun collect-all-record-types ()
  (with-standard-io-syntax
    (let ((stream ccl::*records-index-stream*)
          (keyword (find-package :keyword)))
      (file-position stream (* 26 11))
      (loop for line = (read-line stream nil 'eof)
            until (eq line 'eof)
            collect (intern line keyword)
            do (read-line stream)
               (read-line stream)
               (read-line stream)))))

This will be integrated in the next version of my Extended-Apropos
where you will be able to ask questions like: What are all the records types
containing "WINDOW" in their name?

Regards,
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) *
*********************************************************************