[#343034] RUBY vs COMMON LISP — fft1976 <fft1976@...>

On Aug 1, 8:55m, p...@informatimago.com (Pascal J. Bourguignon)

16 messages 2009/08/02

[#343054] Inconsistency in Array#[] — Wojciech Piekutowski <w.piekutowski@...>

Disclaimer: I know what docs say, but I'd prefer a different

14 messages 2009/08/02

[#343135] Kind of ParsTree for 1.9.1 — Macario Ortega <macarui@...>

22 messages 2009/08/04

[#343186] Bizarre Range behavior — Scott Briggs <scott.br@...>

Can someone please explain this behavior in ruby (1.8.6p111):

42 messages 2009/08/04
[#343187] Re: Bizarre Range behavior — Yossef Mendelssohn <ymendel@...> 2009/08/04

On Aug 4, 1:47m, Scott Briggs <scott...@gmail.com> wrote:

[#343193] Re: Bizarre Range behavior — Rob Biedenharn <Rob@...> 2009/08/04

On Aug 4, 2009, at 3:04 PM, Yossef Mendelssohn wrote:

[#343196] Re: Bizarre Range behavior — "Matthew K. Williams" <matt@...> 2009/08/04

On Wed, 5 Aug 2009, Rob Biedenharn wrote:

[#343199] Re: Bizarre Range behavior — Rob Biedenharn <Rob@...> 2009/08/04

On Aug 4, 2009, at 3:45 PM, Matthew K. Williams wrote:

[#343234] Re: Bizarre Range behavior — Yukihiro Matsumoto <matz@...> 2009/08/05

Hi,

[#343251] Re: Bizarre Range behavior — Brian Candler <b.candler@...> 2009/08/05

Yukihiro Matsumoto wrote:

[#343261] Re: Bizarre Range behavior — Yukihiro Matsumoto <matz@...> 2009/08/05

Hi,

[#343266] Re: Bizarre Range behavior — "David A. Black" <dblack@...> 2009/08/05

Hi --

[#343272] Re: Bizarre Range behavior — Yukihiro Matsumoto <matz@...> 2009/08/05

Hi,

[#343273] Re: Bizarre Range behavior — Rick DeNatale <rick.denatale@...> 2009/08/05

On Wed, Aug 5, 2009 at 12:21 PM, Yukihiro Matsumoto<matz@ruby-lang.org> wrote:

[#343235] remove commas from string — Jason Lillywhite <jason.lillywhite@...>

I have following string:

14 messages 2009/08/05

[#343288] including gems with standalone app — Eric Peterson <ericdp@...>

Morning,

10 messages 2009/08/05

[#343320] 1.9 String and M17N documentation — Brian Candler <b.candler@...>

I have put together a document which tries to outline the M17N

20 messages 2009/08/06
[#343351] Re: [ANN] 1.9 String and M17N documentation — James Gray <james@...> 2009/08/06

On Aug 6, 2009, at 6:47 AM, Brian Candler wrote:

[#343378] Re: [ANN] 1.9 String and M17N documentation — Eric Hodel <drbrain@...7.net> 2009/08/07

On Aug 6, 2009, at 08:57, James Gray wrote:

[#343423] How do I add ? — chutsu <chutsu@...>

I've got a file that is in two columns, how do I add the second column

14 messages 2009/08/07

[#343566] Reading contents of a file and storing — Shekar Ls <idealone5@...>

Guys,

14 messages 2009/08/10

[#343592] Destroying related objects doubt ... basic oop question — Soh Dubom <sohdubom@...>

::Destroying related objects doubt

16 messages 2009/08/10
[#343726] Re: Destroying related objects doubt ... basic oop question — Mike Stephens <rubfor@...> 2009/08/12

Yet another reason for steering well clear of object-relational mappers.

[#343751] Re: Destroying related objects doubt ... basic oop question — Fabian Streitel <karottenreibe@...> 2009/08/12

> Yet another reason for steering well clear of object-relational mappers.

[#343649] Good editor for Windows Ruby — Peter Bailey <pbailey@...>

Hello,

21 messages 2009/08/11

[#343658] Readline not working with Ruby — Stewart <stewart.matheson@...>

24 messages 2009/08/11

[#343756] Class#descendants? — Jason Lillywhite <jason.lillywhite@...>

Ruby can do Class#ancestors but not Class#descendants.

18 messages 2009/08/12
[#343757] Re: Class#descendants? — Joel VanderWerf <vjoel@...> 2009/08/12

Jason Lillywhite wrote:

[#343771] skip_before_filter (Do I need a lesson in modules/mixins?) — Cris Shupp <cshupp1@...>

Gurus,

13 messages 2009/08/12

[#343831] newbie question making a folder with ruby — Simon Staton <simon@...>

ok well the program I am in the middle of programming I need it to

20 messages 2009/08/13
[#343851] Re: newbie question making a folder with ruby — Lui Core <usurffx@...> 2009/08/13

Simon Staton wrote:

[#343898] Re: newbie question making a folder with ruby — Simon Staton <simon@...> 2009/08/14

Lui Core wrote:

[#343902] Re: newbie question making a folder with ruby — Simon Staton <simon@...> 2009/08/14

To give more of an idea this is the code that I have on the .rb file. it

[#343920] Class method aliased in superclass bypasses subclass overrides — Marcos <markjreed@...>

This seems like it should work:

11 messages 2009/08/14

[#344009] start_with? Does someone need a grammar lesson? — 7stud -- <bbxx789_05ss@...>

String#start_with?-------------------------------

15 messages 2009/08/17

[#344088] fromdos dos2unix in ruby — Krzysztof Cierpisz <ciapecki@...>

how can I achieve in ruby the result of running:

18 messages 2009/08/18
[#344103] Re: fromdos dos2unix in ruby — krzysztof cierpisz <ciapecki@...> 2009/08/18

>

[#344109] Re: fromdos dos2unix in ruby — Robert Klemme <shortcutter@...> 2009/08/18

2009/8/18 krzysztof cierpisz <ciapecki@gmail.com>:

[#344125] exercise in DRY — Peter Ehrlich <crazedcougar@...>

I have some simple code for a thumbs up/thumbs down functionality.

13 messages 2009/08/18

[#344180] #has_arguments? — Intransition <transfire@...>

Messing with optional argument check for the umpteenth time, eg.

23 messages 2009/08/19

[#344218] Confirm my Performance Test Against Java? — Ben Christensen <benjchristensen@...>

I'm evaluating Ruby for use in a variety of systems that are planned by

40 messages 2009/08/19
[#344222] Re: Confirm my Performance Test Against Java? — brabuhr@... 2009/08/19

On Wed, Aug 19, 2009 at 9:31 AM, Ben Christensen

[#344342] extending ruby - handling errors — Jason Lillywhite <jason.lillywhite@...>

I want to raise an ArgumentError, "Function only takes numeric objects."

11 messages 2009/08/20

[#344345] How do I estimate how long it will take a calculation to complete? — Paul <tester.paul@...>

Hi there, I wrote a short ruby script to calculate the prime factors

10 messages 2009/08/20

[#344366] Why, oh why, _why? — Karl von Laudermann <doodpants@...>

_why the lucky stiff appears to have disappeared from the internets!

79 messages 2009/08/20
[#344400] Re: Why, oh why, _why? — Ralf Mueller <ralf.mueller@...> 2009/08/21

Karl von Laudermann wrote:

[#344421] Re: Why, oh why, _why? — Gregory Brown <gregory.t.brown@...> 2009/08/21

On Fri, Aug 21, 2009 at 4:24 AM, Ralf Mueller<ralf.mueller@zmaw.de> wrote:

[#344432] Re: Why, oh why, _why? — Rick DeNatale <rick.denatale@...> 2009/08/21

On Fri, Aug 21, 2009 at 7:17 AM, Gregory Brown<gregory.t.brown@gmail.com> wrote:

[#344434] Re: Why, oh why, _why? — Gregory Brown <gregory.t.brown@...> 2009/08/21

On Fri, Aug 21, 2009 at 9:49 AM, Rick DeNatale<rick.denatale@gmail.com> wrote:

[#344441] Re: Why, oh why, _why? — Jason Roelofs <jameskilton@...> 2009/08/21

On Fri, Aug 21, 2009 at 9:54 AM, Gregory Brown <gregory.t.brown@gmail.com>wrote:

[#344448] Re: Why, oh why, _why? — Xavier Noria <fxn@...> 2009/08/21

On Fri, Aug 21, 2009 at 4:07 PM, Jason Roelofs<jameskilton@gmail.com> wrote:

[#344453] Re: Why, oh why, _why? — Jason Roelofs <jameskilton@...> 2009/08/21

On Fri, Aug 21, 2009 at 10:23 AM, Xavier Noria <fxn@hashref.com> wrote:

[#344525] Re: Why, oh why, _why? — Todd Benson <caduceass@...> 2009/08/22

On Thu, Aug 20, 2009 at 3:10 PM, Karl von

[#344526] Re: Why, oh why, _why? — Todd Benson <caduceass@...> 2009/08/22

On Sat, Aug 22, 2009 at 7:43 AM, Todd Benson<caduceass@gmail.com> wrote:

[#344404] How to convert string "/regexp/i" to /regexp/i - ? — Joao Silva <rubyforum@...>

When i try to use:

20 messages 2009/08/21

[#344462] Github and _why — John W Higgins <wishdev@...>

I'm about to get very nasty responses but this absolutely is a very bad

19 messages 2009/08/21
[#344467] Re: Github and _why — Tony Arcieri <tony@...> 2009/08/21

On Fri, Aug 21, 2009 at 10:38 AM, John W Higgins <wishdev@gmail.com> wrote:

[#344545] 1.8.7 String#lines keeps new-line chars (say it ain't so in 1.9) — Intransition <transfire@...>

Ruby 1.8.7 p72

19 messages 2009/08/22

[#344554] Ruby Editor — sasan <sasan.bahrieh@...>

I need a good software for ruby programming. please post message for

21 messages 2009/08/22

[#344573] ruby-debug does not hit breakpoints at class-methods — Sys Ppp <systemppp@...>

ruby-1.8.6-p369

19 messages 2009/08/22
[#344593] Re: ruby-debug does not hit breakpoints at class-methods — 7stud -- <bbxx789_05ss@...> 2009/08/23

...and more

[#344597] Re: ruby-debug does not hit breakpoints at class-methods — Sys Ppp <systemppp@...> 2009/08/23

> $ rdebug r2test.rb

[#344652] Re: ruby-debug does not hit breakpoints at class-methods — 7stud -- <bbxx789_05ss@...> 2009/08/24

Sys Ppp wrote:

[#344653] Re: ruby-debug does not hit breakpoints at class-methods — 7stud -- <bbxx789_05ss@...> 2009/08/24

...or I guess this would be a better example:

[#344656] Re: ruby-debug does not hit breakpoints at class-methods — Sys Ppp <systemppp@...> 2009/08/24

To 7stud. These are all normal, except class-method, as i wrote.

[#344691] Re: ruby-debug does not hit breakpoints at class-methods — Rick DeNatale <rick.denatale@...> 2009/08/24

On Sun, Aug 23, 2009 at 11:50 PM, Sys Ppp<systemppp@gmail.com> wrote:

[#344705] Re: ruby-debug does not hit breakpoints at class-methods — Sys Ppp <systemppp@...> 2009/08/24

Rick Denatale wrote:

[#344580] Development - works, production not - why? — Joao Silva <rubyforum@...>

My development envrioment:

11 messages 2009/08/23

[#344680] Comparison Ruby, Python, Php, Groovy ecc. — Marco Mastrodonato <m.mastrodonato@...>

Comparison script languages for the fractal geometry, these are the

25 messages 2009/08/24
[#344684] Re: Comparison Ruby, Python, Php, Groovy ecc. — Urabe Shyouhei <shyouhei@...> 2009/08/24

Are those executables compiled with identical compilers + compile flags?

[#344717] _why's "suicide" note? — Graham Agnew <graham.agnew@...>

Just found this as _why's last tweet on the Google cached copy of _why's

12 messages 2009/08/24

[#344762] Calling method from another class — Kostas Lps <louposk@...>

Hi guys,

15 messages 2009/08/24

[#344872] ||= with 1.8 and 1.9 ? — Aldric Giacomoni <aldric@...>

A friend of mine on Twitter recently posted this tidbit of code:

30 messages 2009/08/26
[#344879] Re: ||= with 1.8 and 1.9 ? — Brian Candler <b.candler@...> 2009/08/26

Aldric Giacomoni wrote:

[#344899] Re: ||= with 1.8 and 1.9 ? — Rick DeNatale <rick.denatale@...> 2009/08/26

On Wed, Aug 26, 2009 at 11:08 AM, Brian Candler<b.candler@pobox.com> wrote:

[#344921] Re: ||= with 1.8 and 1.9 ? — Brian Candler <b.candler@...> 2009/08/26

Rick Denatale wrote:

[#344923] Re: ||= with 1.8 and 1.9 ? — Joel VanderWerf <vjoel@...> 2009/08/26

Brian Candler wrote:

[#344881] # sign does not work as expected form irb — Salvador Sanjuan <salvador.sanjuan@...>

I have just started Ruby. I have tried to do some exercises usin irb but

15 messages 2009/08/26
[#344887] Re: # sign does not work as expected form irb — Aldric Giacomoni <aldric@...> 2009/08/26

Salvador Sanjuan wrote:

[#344988] Re: # sign does not work as expected form irb — Salvador Sanjuan <salvador.sanjuan@...> 2009/08/27

Aldric Giacomoni wrote:

[#344938] Rack must not dictate how to create a middleware — Sys Ppp <systemppp@...>

In current realization of Rack::Builder the method :use dictates that

15 messages 2009/08/26
[#344940] Re: Rack must not dictate how to create a middleware — Brian Candler <b.candler@...> 2009/08/26

Sys Ppp wrote:

[#345037] Possible to use Ruby for Dynamic HTML sites without Rails? — Frank Peterson <fictionalperson@...>

How easy is this to do? I've been going though a Ruby book again (was

13 messages 2009/08/27

[#345070] I need a string#all_indices method--is there such a thing? — timr <timrandg@...>

In ruby you can use string#index as follows:

22 messages 2009/08/28

[#345079] #map, #select semantics — James Coglan <jcoglan@...>

I imagine this has come up before, though I can't find anything about it. I

16 messages 2009/08/28

[#345097] How to call this method — Robert Dober <robert.dober@...>

Hi list

15 messages 2009/08/28
[#345100] Re: How to call this method — Robert Klemme <shortcutter@...> 2009/08/28

2009/8/28 Robert Dober <robert.dober@gmail.com>:

[#345222] Sorting an array by multiple elements? — Paul <tester.paul@...>

Hi there, I have an array of arrays that I want to sort by multiple

14 messages 2009/08/30

[#345267] What is the ruby conventions to name private method? — pierr <pierr.chen@...>

16 messages 2009/08/31
[#345274] Re: What is the ruby conventions to name private method? — Ryan Davis <ryand-ruby@...> 2009/08/31

[#345322] help on phps $$ equivalent in ruby — Arthur Rats <simon.jacobs.ams@...>

i just cant find this anywhere, googling for a while and read up tons on

11 messages 2009/08/31

RUBY vs COMMON LISP

From: fft1976 <fft1976@...>
Date: 2009-08-02 05:30:09 UTC
List: ruby-talk #343034
On Aug 1, 8:55m, p...@informatimago.com (Pascal J. Bourguignon)
wrote:
> w_a_x_man <w_a_x_...@yahoo.com> writes:
> > On Aug 1, 9:32 am, Bata <batabo...@yahoo.ca> wrote:
> >> Use (cl-ppcre:split " " string-name) to get a list of the different
> >> words in the string.
>
> >> Check out the cl-ppcre package's functionality, its quite amazing.
>
> > Ruby:
>
> > string_name.split
>
> Don't you realize how ugly Ruby syntax is?
>
> Here is in 150 lines of lisp, a simplified lisp reader that is able to
> read all the lisp syntax needed to write it.
>
> Try to parse Ruby syntax in Ruby and see how useless a language it is.

I much prefer CL to Ruby, but this argument is useless. How many lines
of code do you need to read Brainfuck in Brainfuck?

(If you wanted to show the inferiority of Ruby to Common Lisp, the
shootout makes a much more compelling argument)

>
> -----(simple-reader.lisp)------------------------------------------------------
> ;;;; -*- mode:lisp;coding:utf-8 -*-
> ;;;;**************************************************************************
> ;;;;FILE: simple-reader.lisp
> ;;;;LANGUAGE: Common-Lisp
> ;;;;SYSTEM: Common-Lisp
> ;;;;USER-INTERFACE: NONE
> ;;;;DESCRIPTION
> ;;;; 
> ;;;; imple Lisp Reader.
> ;;;; his reader implements a subset of the Common Lisp reader,
> ;;;; ut it should be extensible enough to be able to read most
> ;;;; f Common Lisp syntax.
> ;;;; ot supported: the preserving whitespace flag, the recursive flag
> ;;;; therefore no references), character traits (escapes).
> ;;;; therwise, reader macros and dispatching acros can be written
> ;;;; o read most of CL syntax.
> ;;;; nly integers, keywords and symbol tokens are parsed (a more
> ;;;; ophisticated parse-token function can be configured).
> ;;;; 
> ;;;;AUTHORS
> ;;;; PJB> Pascal J. Bourguignon <p...@informatimago.com>
> ;;;;MODIFICATIONS
> ;;;; 009-08-02 <PJB> Created.
> ;;;;BUGS
> ;;;;LEGAL
> ;;;; PL
> ;;;; 
> ;;;; opyright Pascal J. Bourguignon 2009 - 2009
> ;;;; 
> ;;;; his program is free software; you can redistribute it and/or
> ;;;; odify it under the terms of the GNU General Public License
> ;;;; s published by the Free Software Foundation; either version
> ;;;;  of the License, or (at your option) any later version.
> ;;;; 
> ;;;; his program is distributed in the hope that it will be
> ;;;; seful, but WITHOUT ANY WARRANTY; without even the implied
> ;;;; arranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
> ;;;; URPOSE. ee the GNU General Public License for more details.
> ;;;; 
> ;;;; ou should have received a copy of the GNU General Public
> ;;;; icense along with this program; if not, write to the Free
> ;;;; oftware Foundation, Inc., 59 Temple Place, Suite 330,
> ;;;; oston, MA 02111-1307 USA
> ;;;;**************************************************************************
>
> (defstruct character-description
> non-terminating-p
> reader-macro
> dispatching-macro-characters)
>
> (defstruct (simple-readtable (:constructor %make-simple-readtable))
> (default-character-description (make-character-description))
> (macro-characters (make-hash-table))
> (parse-token (function identity))
> (whitespaces (#\space #\tab #\newline #\linefeed #\return #\page #\vt)))
>
> (defun simple-get-macro-character (character &optional (readtable *simple-readtable*))
> (let ((description (or (gethash character (simple-readtable-macro-characters readtable))
> simple-readtable-default-character-description readtable))))
> (values (character-description-reader-macro description)
> (character-description-non-terminating-p description))))
>
> (defun simple-set-macro-character (character function &optional non-terminating-p
> readtable *simple-readtable*))
> (setf (gethash character (simple-readtable-macro-characters readtable))
> (make-character-description :non-terminating-p non-terminating-p
> :reader-macro function))
> 't)
>
> (defun simple-get-dispatch-macro-character (character subchar
> &optional (readtable *simple-readtable*))
> (setf subchar (char-upcase subchar))
> (let ((description (gethash character (simple-readtable-macro-characters readtable))))
> (unless (and description
> character-description-dispatching-macro-characters description))
> (error "#\\~C is not a dispatching macro character" character))
> (gethash subchar (character-description-dispatching-macro-characters description))))
>
> (defun simple-set-dispatch-macro-character (character subchar function
> &optional (readtable *simple-readtable*))
> (setf subchar (char-upcase subchar))
> (let ((description (gethash character (simple-readtable-macro-characters readtable))))
> (when (or (null description)
> (null (character-description-dispatching-macro-characters description)))
> (setf (gethash character (simple-readtable-macro-characters readtable))
> (make-character-description :non-terminating-p t
> :reader-macro (function simple-reader-dispatching-macro)
> :dispatching-macro-characters (make-hash-table)))))
> (let ((description (gethash character (simple-readtable-macro-characters readtable))))
> (setf (gethash subchar character-description-dispatching-macro-characters description))
> function))
> 't)
>
> (defun simple-reader-dispatching-macro (character stream)
> (let* ((subchar read-char stream))
> macro simple-get-dispatch-macro-character character subchar)))
> (assert macro () "~C~C is not a dispatching macro" character subchar)
> (funcall macro character subchar stream)))
>
> (defun simple-read-vector-dmacro (char subchar stream)
> (declare (ignore char))
> (let ((contents (simple-read-list-macro subchar stream)))
> (coerce contents 'vector)))
>
> (defvar *character-names* (list (cons "SPACE" code-char 32))
> (cons "NEWLINE" code-char 10))
> (cons "RETURN" (code-char 13))
> (cons "PAGE" (code-char 12))
> (cons "VT" (code-char 11))
> (cons "LINEFEED" (code-char 10))
> (cons "TAB" code-char 9)))
> "An a-list mapping character names to characters.")
>
> (defun simple-read-character-dmacro (char subchar stream)
> (declare (ignore char subchar))
> (let ((object (read-char stream)))
> (if (alpha-char-p (peek-char nil stream nil #\space))
> (loop
> with buffer = (make-array 8 :element-type 'character :adjustable t :fill-pointer 1
> :initial-element object)
> do (vector-push-extend (read-char stream) buffer)
> while (alpha-char-p (peek-char nil stream nil #\space))
> finally (return (or (cdr (assoc (string-upcase buffer) *character-names*
> :test (function string=)))
> (aref buffer 0))))
> object)))
>
> (defun simple-parse-token (buffer)
> ;; We only deal with integers, keywords and symbols.
> (or (ignore-errors (parse-integer buffer :junk-allowed nil))
> (if (char= #\: (aref buffer 0))
> (intern (string-upcase (subseq buffer (position #\: buffer :test (function char/=))))
> "KEYWORD")
> ;; We don't deal with other packages in this simple parse-token.
> (intern (string-upcase buffer)))))
>
> (defun simple-read-quote-macro (character stream)
> (declare (ignore character))
> (list 'quote (simple-read stream)))
>
> (defun simple-read-list-macro (character stream)
> (declare (ignore character))
> (loop
> until (char= #\) (peek-char t stream))
> collect (simple-read stream)
> finally (read-char stream)))
>
> (defun simple-read-string-macro (character stream)
> (handler-case
> (loop
> with buffer = (make-array 8 :element-type 'character :adjustable t :fill-pointer 0)
> for ch = (read-char stream)
> until (char= character ch)
> do (vector-push-extend (if (char= #\\ ch)
> read-char stream)
> h)
> uffer)
> finally (return (copy-seq buffer)))))
>
> (defun simple-read-comment-macro (character stream)
> (declare (ignore character))
> (read-line stream)
> (values))
>
> (defun make-simple-readtable ()
> (let ((readtable
> %make-simple-readtable
> :default-character-description (make-character-description :non-terminating-p t)
> :parse-token (function simple-parse-token))))
> (simple-set-macro-character #\( (function simple-read-list-macro) nil readtable)
> (simple-set-macro-character #\) nil nil readtable)
> (simple-set-macro-character #\' (function simple-read-quote-macro) il readtable)
> (simple-set-macro-character #\" (function simple-read-string-macro) nil readtable)
> (simple-set-macro-character #\; (function simple-read-comment-macro) il readtable)
> (simple-set-dispatch-macro-character #\# #\\ (function simple-read-character-dmacro) readtable)
> (simple-set-dispatch-macro-character #\# #\( (function simple-read-vector-dmacro) eadtable)
> readtable))
>
> (defparameter *simple-readtable* (make-simple-readtable))
>
> (defun simple-read (&optional (stream *standard-input*) (eof-error-p t) eof-value)
> (peek-char t stream nil)
> (let ((char (read-char stream nil nil)))
> (cond
> (char
> multiple-value-bind (macro non-terminating-p) (simple-get-macro-character char)
> if macro
> let ((object (multiple-value-list (funcall macro char stream))))
> if object (first object) (simple-read stream eof-error-p eof-value))) 
> loop
> :with buffer = (make-array 8 :element-type 'character :adjustable t :fill-pointer 0)
> :for ch = (peek-char nil stream nil #\space)
> :initially (vector-push-extend char buffer)
> :until (or (position ch (simple-readtable-whitespaces *simple-readtable*))
> not (nth-value 1 (simple-get-macro-character ch))))
> :do (vector-push-extend (read-char stream eof-error-p eof-value) buffer)
> :finally (return (funcall (simple-readtable-parse-token *simple-readtable*)
> buffer))))))
> (eof-error-p (error 'end-of-file :stream stream))
> (t eof-value))))
>
> --------------------------------------------------------------------------------
>
> (with-open-file (input "simple-reader.lisp")
> (loop
> for sexp = (simple-read input nil input)
> until (eq sexp input)
> do (pprint sexp) (terpri)))
>
> --
> __Pascal Bourguignon__


In This Thread

Prev Next