HDTenEightyP/NetNews huggingface dataset:
From: straz@cambridge.apple.com (Steve Strassmann)
Newsgroups: comp.lang.lisp.mcl
Subject: the kermit downloading blues
Date: 2 Sep 92 02:08:40 GMT
Full-Name: Steve Strassmann
Original-To: wilcox@cmns.think.com (Greg Wilcox)
Original-Cc: info-mcl@cambridge.apple.com

>Date: Fri, 28 Aug 92 13:48:46 EDT
>From: wilcox@cmns.think.com (Greg Wilcox)
>To: info-mcl@cambridge.apple.com
>Subject: the kermit downloading blues
>
>I would like to download a file from cambridge.apple.com which is in .sit
>fort. I can get it from there to my own remote login site using ftp,
>but I cannot get it to my local machine intact. The problem is that the
>remote site has only kermit, not xmodem (at least invoking sb doesn't
>work). Of course by using kermit, I receive an integer number of packets,
>the last of which is partially empty. This last packet then causes a CRC
>error when I run BinHex.
>
>Is there an easy way around this problem, such as truncating the file
>to the correct length? Or a setting in Kermit that would work?
>Then again, I'm not very good at UN*X, and I could be overlooking something
>there. Suggestions?
>

I don't see any files on our contrib directory in .sit form, but maybe
you mean another directory. All our .sit files have been converted to
binhex format (hence the "hqx" suffix), which means plain 7bit ascii
with no lines longer than 80 chars.

When you transfer the file from our site to yours, make sure you issue
the "binary" command before saying "get" to ftp. Some unix ftp programs 
strip the 8th bit of each character if you don't do this. 

Kermit is also 7bit by default, so you have to do something like
"set file type binary" before sending a file using Kermit.

You might also want to contact your system administrator and inquire about
getting xmodem (or better yet, zmodem) running on your system.
Newsgroups: comp.lang.lisp.mcl
From: markw@asdi (Mark Watson x6816)
Subject: DYLAN simulator ??
Keywords: DYLAN 
Organization: SAIC
X-Newsreader: Tin 1.1 PL4
Date: Tue, 1 Sep 1992 01:59:47 GMT

Is there a simulator for DYLAN that runs under MACL?

Thanks,
  Mark Watson
From: wilcox@cmns.think.com (Greg Wilcox)
Newsgroups: comp.lang.lisp.mcl
Subject: the kermit downloading blues
Date: 28 Aug 92 17:48:46 GMT
Original-To: info-mcl@cambridge.apple.com

I would like to download a file from cambridge.apple.com which is in .sit
fort. I can get it from there to my own remote login site using ftp,
but I cannot get it to my local machine intact. The problem is that the
remote site has only kermit, not xmodem (at least invoking sb doesn't
work). Of course by using kermit, I receive an integer number of packets,
the last of which is partially empty. This last packet then causes a CRC
error when I run BinHex.

Is there an easy way around this problem, such as truncating the file
to the correct length? Or a setting in Kermit that would work?
Then again, I'm not very good at UN*X, and I could be overlooking something
there. Suggestions?
From: cartier@math.uqam.ca (Guillaume Cartier)
Newsgroups: comp.lang.lisp.mcl
Subject: Bug (or documentation bug?) in MCL2.0p1
Date: 28 Aug 92 15:54:05 GMT
Original-To: info-mcl@cambridge.apple.com (Macintosh Common Lisp)

The examples of using TRACE in MCL's reference
on page 362 and 363 that have LAMBDA's as arguments
don't seem to work.

*********************************************************************
* 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: bill@cambridge.apple.com (Bill St. Clair)
Newsgroups: comp.lang.lisp.mcl
Subject: Re: Whiter Whites?
Date: 31 Aug 92 16:51:50 GMT
Full-Name: Bill St. Clair
Original-To: korcuska@aristotle.ils.nwu.edu (Michael &)
Original-Cc: info-mcl

>Perhaps this has been discussed before.  If so, sorry...
>
>I was using the following code (sort of) the other day to draw white text over
>a colored background:
>
>(with-fore-color *white-color*
>  (with-cstrs ((s "A String"))
>    (#_TextBox s (length "A String") r #.#$teJustCenter))) ; where r is a Rect
>
>Much to my suprise the text is not white if the monitor is set to 4 bits deep
>or less.  Why? Well, from the AppleDoc for MCL:

Guillaume Cartier reported this problem just last week. Oliver Steele
suggested that scaling by 257 instead of 256 when mapping from 8 to
16 bit color components fixes the problem. I have a patch for MCL's
MAKE-COLOR, COLOR-RED, COLOR-GREEN, & COLOR-BLUE functions that makes
this change. It will be part of patch 2 for MCL 2.0 (patch 1 will be
available soon). I'll send it to anyone who asks for "color-components-patch".
From: usher@vax.oxford.ac.uk
Newsgroups: comp.lang.lisp.mcl
Subject: ex
Date: 27 Aug 92 14:12:28 GMT
Organization: Oxford University VAX 6620

Hi,
	I am having some problems trying to switch from a window I have
generated back to the Listener.  The function being called (action-press)
 runs fine when called from the listener direct however when called by
clicking the "Action" button the function Action-press runs up to the
read-line command, then freezes the screen until Apple period is used to
interupt the function.
	I am using MCL 2.0 on a IIcx.  I feel that the problem may be to do
with the input/output streams being wrong, but have been unable to prove that
this is so, or find a solution.

(defun window ()
  (setq window (MAKE-INSTANCE 'DIALOG
                                :WINDOW-TYPE :DOCUMENT-WITH-ZOOM 
                                :window-title "window"
                                :VIEW-SUBVIEWS
                                (LIST (make-dialog-item 'button-dialog-item
                                                        #@(14 5)
                                                       #@(60 15)
                                                        "Action"
                                                         #'(lambda ( frame)
                                                            frame
                                                            (action-press
)))))))

(defun action-press ()
  (window-select (find-window "Listener"))
  (pprint "Started")
	(read-line )
	(pprint "Finished"))

Many thanks for any help or advice you can give me

Tom Usherwood
From: cfry@MIT.EDU (Christopher Fry)
Newsgroups: comp.lang.lisp.mcl
Subject: Re: A better "Fred Commands" help window
Date: 31 Aug 92 20:18:04 GMT
Original-To: yost@adobe.com (David Yost)
Original-Cc: info-mcl@cambridge.apple.com


 
> In article <9208260012.AA10718@MIT.EDU> cfry@MIT.EDU (Christopher Fry) writes:
> > As the originator of the Fred Commands window, I'd like to state
> > that Yost's formatting is a definate improvement on mine. [Thanks David!]
> 
> Thank you.  I was wondering if anyone cared.
> It's nice to hear praise from the person
> whose work you hope you've approved upon.
By encouraging each other, we evolve great systems!
> And I agree with your suggestions.
> 
> One more thing: The list should appear twice.
> The first time the commands should be grouped by type of function
> The second time they should be sorted by key sequence as they are now.
Well as long as we're evolving the design here, Its certainly nice to have a semantic
grouping. Such groupings could be made explicit via heirarchical menus.
Here's a first pass at a hierarchical help menu for MCL
help
  Common Lisp
     arithmetic
     arrays
     files
     object system    
     ...
  Editor
     by category
        deleting
        moving cursor
        
        ...
     by function name
     by key binding
  Forieng Function Inteface
  Inspector
  Mac OS
  Stepper
  Window System
     menus
     ...
     windows 
> > A nice extension would be to put a sentence of documentation in a 3rd
> > column to the right.  For instance, the meaning of "ed-yank" might not
> > be obvious to the new user but a short description of it would clear up
> > misunderstandings.
> 
> Would you volunteer to do this?  I'm new to Fred and emacs.
Being new is an ADVANTAGE! We want this to be so obvious that new users can
understand it. I wouldn't mind helping but...
I was kinda hoping Apple would realize this was important and pick up the ball.
Fred help should fit into the context of other kinds of help in MCL.
From: bill@cambridge.apple.com (Bill St. Clair)
Newsgroups: comp.lang.lisp.mcl
Subject: Re: table-dialog-item
Date: 28 Aug 92 16:33:02 GMT
Full-Name: Bill St. Clair
Original-To: berger@SOE.Berkeley.Edu (Daniel Berger)
Original-Cc: info-mcl

>Here is a pretty silly question -
>
>Is there a programable way to set the contents of a (single) cell of a
>table-dialog-item or a sequence-dialog-item?  I do not want to set the
>contents of the entire sequence (i.e., with set-table-sequence - I'd like
>something like "set-cell-content"), as I do not know what the content is.
>(I may be reading the content in from a file, and would like to create
>the table first and fill the content as I go along).
>
>Am I missing something obvious?

A table-dialog-item has no concept of "setting the contents of a cell".
The contents is returned by the CELL-CONTENTS generic function, which
is called by the default DRAW-CELL-CONTENTS method. If you specialize
CELL-CONTENTS, you can compute the value every time rather than storing
it in a data structure. If you specialize DRAW-CELL-CONTENTS, you can
prevent the consing done to convert the CELL-CONTENTS value into a
string.

SEQUENCE-DIALOG-ITEM specializes CELL-CONTENTS to return an element
of a sequence. To change the value of a single cell, you change the
value of the corresponding element of the sequence and call REDRAW-CELL.
The function BM-DO-DIALOG-FILE-SEARCH in the file
"ccl:examples;boyer-moore.lisp" illustrates this. It also shows that when
the length of the sequence changes, you need to call SET-TABLE-SEQUENCE.

If you make your own class of TABLE-DIALOG-ITEM and specialize
CELL-CONTENTS or DRAW-CELL-CONTENTS, then when the value of a cell changes,
you can simply call REDRAW-CELL on that cell. If the size of your table
changes, you'll need to call SET-TABLE-DIMENSIONS, which will cause a redraw
of the entire table. If you want to prevent this redrawing, it should be
possible, but I haven't tried it yet. Ask me for more help if you really
want to do this, or look at:

   "MCL 2.0 CD:Additional MCL Source Code:lib:dialogs.lisp"
From: ranson@LANNION.cnet.fr (Ranson)
Newsgroups: comp.lang.lisp.mcl
Subject: Re:  files-in-directory
Date: 1 Sep 92 13:38:00 GMT
X400-Received: by /PRMD=inria/ADMD=atlas/C=FR/;
	Relayed; 01 Sep 92 13: 37:56+0200
X400-Received: by /PRMD=CNET/ADMD=ATLAS/C=FR/;
	Relayed; 01 Sep 92 13: 38:00 GMT
Original-To: info-mcl@cambridge.apple.com, sr0o+@andrew.cmu.edu
Original-Cc: ranson@lannion.cnet.fr

Common Lisp has a DIRECTORY function that should do what you want.
Yes, MCL2.0 final runs on Quadras with the cache on. You should get this
version, there are no reasons to use the beta now that the final is out.
Yes, there are a lot of differences between 1.3.2 and 2.0. I couldn't imagine
writing anything MCL-specific without the documentation. The documentation is
available on line. Maybe your site has it on a server?
     Daniel Ranson.
From: lieber@MEDIA-LAB.MEDIA.MIT.EDU (Henry Lieberman)
Newsgroups: comp.lang.lisp.mcl
Subject: Am I black-and-white yet?
Date: 3 Sep 92 16:29:34 GMT
Original-To: info-mcl@MEDIA-LAB.MEDIA.MIT.EDU


On the issue of a reliable test for a black-and-white versus color screen,
I hit upon 

(real-color-equal (make-color 0 0 0)
                  (make-color 32000 32000 32000))

which asks "Is gray the same as black?". This seems to work.
From: marie@paris.erg.sri.com (Marie desJardins)
Newsgroups: comp.lang.lisp.mcl
Subject: Apple Events
Date: 27 Aug 92 19:26:54 GMT
Reply-To: marie@paris.erg.sri.com (Marie desJardins)
Organization: SRI International, Menlo Park, CA

Does MCL 2.0 support Apple Events?  I don't see any reference to
Apple Events in the documentation.

(Note: I'm new to MCL, System 7, and comp.lang.lisp.mcl, so please
forgive me if this question has an obvious answer.)

Marie desJardins
marie@erg.sri.com
From: beus@bunsen.cs.byu.edu
Newsgroups: comp.lang.lisp.mcl
Subject: problem with my first trap
Date: 3 Sep 92 18:09:48 GMT
Original-To: info-mcl@cambridge.apple.com

Trying a simple use of a Mac trap gives this error.
Can anyone help?

? (#_sysbeep 1)
> Error: Can't find TRAPS::_SYSBEEP in "ccl:interfaces;index;traps.idx".
>        Consider (REINDEX-INTERFACES) or look in "ccl:library;interfaces.lisp"
> While executing: CCL::FIND-INTERFACE-ENTRY
> Type Command-/ to continue, Command-. to abort.
> If continued: Ignore the error.
See the Restarts  menu item for further choices.

The manual indicates only the need to use the #_ read macro.
What's up?
From: fen@genmagic.com (Fen Labalme)
Newsgroups: comp.lang.lisp.mcl
Subject: Re- Yeah, what's a good CDR
Date: 26 Aug 92 19:47:06 GMT
Organization: General Magic, Mountain View, California
Original-To: info-mcl@cambridge.apple.com (Macintosh Common Lisp)

From INTERNET                 Re: Yeah, what's a good CDRom drive?

I don't own one yet, but I've been looking around ever since
I heard that MCL 2.0f was gonna have the CDRom disk with lots
of neat stuff on it.

From what I've seen, the new NEC CDR-74 looks like the best
(read: fastest) one around (average access time of 280ms),
and from reports is very reliable.

Club Mac (1-800-258-2622) and EduCorp (1-800-843-9497) both
advertise the CDR-74 in MacWeek for around $630 with the
"gallery bundle" which includes 7 disks (about 3 of which are
actually worth while), speakers and headphones, or $570
without the bundle -- obviously the bundle is the deal!

By the way, I ended up simply transfering (using a friend's
CDRom) about 70 Megabytes to a Syquest 88 removable, and am
using that for my LISP programming environment.

I hate disclaimers, but I definately have nothing to do with
ANY of the companies mentioned above.

Fen
From: jipan@gmuvax2.gmu.edu (Jiqian Pan)
Newsgroups: comp.lang.lisp.mcl
Subject: Electronic reference
Date: 27 Aug 92 13:55:39 GMT
Original-To: info-mcl@cambridge.apple.com

It would be nice if we can have a MCL electronic reference,
just like THINK Reference.  Does anyone have such a reference?

-J. Pan
From: gong@cs.uq.oz.au (Ming Gong)
Newsgroups: comp.lang.lisp
Subject: A question: Dynamic type check
Date: 28 Aug 92 02:33:21 GMT
Reply-To: gong@cs.uq.oz.au

I want to know *at run time* whether or not a expression is a function. 
Can some knowledgeable people tell me how?

For example, I have a lisp function PLUS implementing 
     lambda x. lambda y. x + y
then (funcall (PLUS) 3) is a function and will printout something like
     #<Function PLUS ....>.
The questions are: can I access such information within a lisp program
and how?

Please email answers to gong@cs.uq.oz.au.

Thank you in advance.

Ming Gong
From: jeff@aiai.ed.ac.uk (Jeff Dalton)
Newsgroups: comp.lang.lisp
Subject: Re: Freezing a variable: how?
Date: 1 Sep 92 15:27:21 GMT
Organization: AIAI, University of Edinburgh, Scotland

For global variables, you could write your own macro to use instead of
SETQ and have the expansion check.  Eg:

  (defmacro safe-setq (var form)
    `(if (get ',var 'constant)
         (error ...)
       (setq ,var ,form)))

and then

  (defun make-constant (var)
    (setf (get var 'constant) t))

-- jd
From: barmar@think.com (Barry Margolin)
Newsgroups: comp.lang.lisp
Subject: Re: A question: Dynamic type check
Date: 28 Aug 1992 21:28:51 GMT
Organization: Thinking Machines Corporation, Cambridge MA, USA
NNTP-Posting-Host: telecaster.think.com

In article <1992Aug28.192233.20104@jpl-devvax.jpl.nasa.gov> charest@aig.jpl.nasa.gov writes:
>In article <10026@uqcspe.cs.uq.oz.au>, gong@cs.uq.oz.au (Ming Gong) writes:
>|> For example, I have a lisp function PLUS implementing 
>|>      lambda x. lambda y. x + y
>|> then (funcall (PLUS) 3) is a function and will printout something like
>|>      #<Function PLUS ....>.
>

>Some observations: if PLUS is a Lisp function then the form (PLUS) is a
>call to that function with no arguments; furthermore (funcall (PLUS) 3) is
>a call to the *result* of (PLUS) with the argument 3. I'll assume that you
>mean (PLUS) returns the function object and that object is what prints as
>#<Function PLUS ....>. This suggests that PLUS is not an ordinary Lisp
>function object, but rather some custom data structure that you
>implemented yourself.

It looks to me like he's experimenting with curried functions.  Presumably
his definition of PLUS is something like:

(defun plus ()
  #'(lambda (x)
      #'(lambda (y) (+ x y))))

When I use this in Lucid CL I see:

> (funcall (plus) 3)
#<Compiled-Function (:INTERNAL (:INTERNAL PLUS 0) 0) C349EE>
> (plus)
#<Compiled-Function (:INTERNAL PLUS 0) C347E6>
> (funcall (plus) 3)
#<Compiled-Function (:INTERNAL (:INTERNAL PLUS 0) 0) C34C8E>
> (funcall (funcall (plus) 3) 4)
7

I can easily imagine other Lisp implementations printing out the first two
results as "#<Function PLUS ...>".
-- 
Barry Margolin
System Manager, Thinking Machines Corp.

barmar@think.com          {uunet,harvard}!think!barmar
From: tar@ISI.EDU (Thomas A. Russ)
Newsgroups: comp.lang.lisp
Subject: Macros, macroexpansion & the compile-time environment.
Date: 1 Sep 92 17:21:00 GMT
Reply-To: tar@isi.edu
Organization: USC-ISI


While doing some portability checks for our system, I ran into a
problem in Allegro V4.1 (Sun Sparc).  What happens is the following:

We have a package which shadows IF.  It is defined in a file loaded
before we load or compile any of our system:

(defpackage "OURS" (:use "COMMON-LISP")
  (:shadow "IF") ...)

In another file, we define our own variant of IF:

  (in-package "OURS")

  (defmacro if (test then &rest else-list)
     (when (null else-list)
       (warn "IF statements should have an else clause"))
     `(COMMON-LISP:if ,test ,then ,@else-list))

  ;; Later in the same file, we use if in a different macro, which has
  ;; been abstracted here:

  (defmacro other-macro (&rest body-of-macro)
    ;; We do some processing of the body, gory details omitted.
    (dolist (form body-of-macro)
      (if (test-form form)        ;; <==== NOTE the "IF" here
	  (do-this form)
          (do-that form)))
    `(some-function ,@args))


In Allegro v4.1, this second macro will not compile correctly.
Apparently the macro definition of "IF" is not available for use in
the expansion generation code for "OTHER-MACRO", since and undefined
function error occurs.  Since this does not happen in TI Common Lisp,
Macintosh MCL or Lucid v4, I think that this may be a bug in Allegro.
Since it involves what is available in the compile time environment as
well as the environment in which macro expansion and macro expansion
function definition occurs, I thought I would seek advice:

    Does the CommonLisp standard require the shadowed definition of
    "IF" to be used in "OTHER-MACRO"?  Or is the standard mute?


- Tom.


P.S.:  I know how to fix the problem for Allegro (use
       "common-lisp:if"), I was just curious about the environment issue).
--

Thomas A. Russ                                             tar@isi.edu    
USC/ISI, 4676 Admiralty Way, Marina del Rey, CA 90292      (310) 822-1511
Newsgroups: comp.lang.lisp
From: pk@cs.tut.fi (Kellom{ki Pertti)
Subject: Re: style-guide
Organization: Tampere Univ. of Technology, Finland.
Date: Wed, 26 Aug 1992 08:00:14 GMT

I tried to mail, but it bounced, so...
In article <1992Aug25.151059.9936@corax.udac.uu.se> Stephen Cooper <stephen@csd.uu.se> writes:
   If I can find an online English copy of the paper, I'll mail a copy to
   interested parties, or
   post it if there's enough push for it.

I would like to have a copy of your style guide.
--
Pertti Kellom\"aki (TeX format)  #       These opinions are mine, 
  Tampere Univ. of TeXnology     #              ALL MINE !
      Software Systems Lab       #  (but go ahead and use them, if you like)


--
From: jeff@aiai.ed.ac.uk (Jeff Dalton)
Newsgroups: comp.lang.lisp
Subject: Re: What do compilers optimize?
Date: 1 Sep 92 12:55:12 GMT
Organization: AIAI, University of Edinburgh, Scotland

Thanks to all who have responded so far.

Another item:

  * Avoid recomputation of common "subexpressions" in a single procedure.
    (There must be many cases where a programmer would rather not write
    a LET and introduce a new variable.)

It's fairly common to do this for CAR-CDR sequences, but I was
surprised to find that certain implementations didn't do it for,
say, LENGTH of a SIMPLE-VECTOR or even for arithmetic expressions.

-- jd
Newsgroups: comp.lang.lisp
From: bam+@cs.cmu.edu (Brad Myers)
Subject: Japanese Input
Organization: School of Computer Science, Carnegie Mellon
Date: Wed, 26 Aug 1992 14:19:50 GMT

Does anyone have a routine to generate EUC encoding of Japanese characters
from input typed on a conventional keyboard written in Lisp?  If not, how
about a different encoding?  I have a routine to convert EUC to the right
indexes to make the k14 CLX font print out the right way, so now I need to
deal with input.  There are a number of C implementations, but they 
are rather long and complicated, and I would rather not re-implement
them.  Surely someone in Japan or elsewhere has done this.

Thanks,

Brad A. Myers
School of Computer Science
Carnegie Mellon University
5000 Forbes Avenue
Pittsburgh, PA  15213-3890
(412) 268-5150
FAX: (412) 681-5739
bam@a.gp.cs.cmu.edu