generalisation of PEEK-CHAR?

I'm looking for a generalisation of the CL PEEK-CHAR function that enables you to peek at the first character of a stream. The generalisation I am after is a function that enables you to peek at the nth character. I cannnot find any obvious way of doing this in CL and wondered how it might be done and how other Lisps stood wrt to this function. Mark

backquote & quote

Hello, I'm implementing a list reader for a subset of common lisp and I ran across an interesting thing concerning backquote: ;; This is with SBCL: * '(`(1 2 3 ,(+ 4 5))) (`(,1 ,2 ,3 ,(+ 4 5))) * (car '(`(1 2 3 ,(+ 4 5)))) `(,1 ,2 ,3 ,(+ 4 5)) * (cdar '(`(1 2 3 ,(+ 4 5)))) (1 2 3 (+ 4 5)) My question is, how would backquote and unquote be implemented in order to give me such an answer? When you see something like: `(1 2 3 ,(+ 4 5)) It could be represented as: (BACKQUOTE (1 2 3 (UNQUOTE (+ 4 5)))) In fact, using the chicken scheme interpreter: #;4>

Re: Light-weight class redefinition semantics for CLOS.

On 2010-09-07 06:44:57 +0100, Kenneth Tilton said: > For the Hard of Reading(tm): CLOS is a bloated pig which has taken on a > life of its own such that we find ourselves programming CLOS instead of > our applications. It really isn't. People make it out to be, and then people like me get interested and start exploring all sorts of interesting edge cases which makes it look complicated, or playing withthe MOP &c. But for normal use it's delighfully simple to express what you mean. Compared to most other object systems CLOS is an absolute pleasure to use: you can say what

Re: Light-weight class redefinition semantics for CLOS.

On 2010-09-03 17:50:24 +0100, Tim Bradshaw said: > Something like that should be fairly easy to arrange with the MOP I > think, though it breaks some things one might want to assume are true - > in particular (eq (find-class (class-name x)) x) may no longer be true. Thinking about this, I think it's much easier than it might seem. What you need is a "public" class C, which knows what its "actual" class is, where its actual class is probably a "private" subclass of it. You need a couple of utility functions (well, you don't need them, but it makes life easier): MAKE-ACTUAL-I

Is this a bug in LISP?

Hi, I'm using GNU CLISP 2.48. I've caught LISP making a pretty grievous math error, and I don't know if it's a bug or if there's another explanation. I input this line: (+ 0.2 0.4 0.2 0.2 9.8 15.4 1.2 5.4) And I get this result: 32.800003 Obviously this answer is off by .000003. Could somebody explain to me why this is, and if there's a way to add these numbers correctly using CLISP?

Load-time evaluation of compound form operators.

Usually the operator of a compound form is evaluated for its functional value at execution time [1]. What if this evaluation of functional value of operators was rather done at load time? What would be the consequences? One obvious consequence would be that some form of forward reference to function definition would have to be provided by mean of back-patching or something equivalent. But this is hardly new and unusual since compilers and linkers in other languages have been handling such things for many decades now. Another one is that in a multi-threaded context the followin

Light-weight class redefinition semantics for CLOS.

There exists a very simple alternative to the current class redefinition semantics of CLOS that avoids all the thread-safety issues of the lazy instance updating feature mandated by the current specification. This alternative is simply to always create a completely new class object, that is a new instance of standard-class with a new identity, every time defclass is invoked. In this scheme there is no automatic updating of any instance outside the control of the application code. Any instance update has to be done under application control, at a time and in a context of its cho

how to get list of vectors with value from file content...

a pure academic question on emacs lisp. basically, i want to set a variable who's value is a list of vectors, each vector is a pair. Like this form: (setq findReplacePairsList (list [A B] [A B] [A B]) ) the element of the vector are strings, each are read from a file content. (i have 6 files, corresponds to the 3 vectors above.) i have 2 questions. (1) here's how i get the file content for each file: (find-file "findreplace_01_A.txt" ) (setq findreplace_01_A (buffer- string)) (kill-buffer ) (find-file "findreplace_01_B.txt" ) (setq findreplace_01_B (buffer- string)

ITA, move over!

Got my first school user! Not paying, of course.... If you are wondering why this software is so great, I explained it here: http://www.stuckonalgebra.com/advantages.html Hey, Google! Over here! :) kt -- http://www.stuckonalgebra.com "The best Algebra tutorial program I have seen... in a class by itself." Macworld

Ed Lambda: Functional programming meetup in Edinburgh

Hi guys, I'm running a meetup for functional programming in Edinburgh. The first one will be on the 13th of September at Malone's Irish Bar (14 Forrest Road) and will continue every 2nd monday of each month. For the first meetup I think we'll just be having a chat and getting to know each other but I hope to be able to expand it to talks and coding dojos once we have some regular numbers. For more details: http://meetup.com/ed-lambda/ And we're on Twitter: http://twitter.com/ed_lambda

suppress output to screen

It's probably a simple trick but can't figure it out (mind blocked). I am storing large data to a file using (with-open-file (stream "c:/mydata.txt" :direction :output) (print data stream)) The file created is about 20 MB. I'm using emacs as editor and when I do the above the file is created but at the same time I have the content all of it printed to the inferior-lisp REPL.I have to wait almost 20 minutes for the rows while they are scrolling on my screen. How can I suppress this output to standard-output? I only need the data stored in the file.

Example 'best practice' Lisp web application to study?

Can anyone suggest an example of web application written in Common Lisp which (1) is open source and can be studied (2) uses HTML forms to allow the user to add data (3) uses some form of persistent backing store, probably a SQL database (4) does all this cleanly and elegantly I want to get up to speed reasonably quickly with how to do this in Lisp (I'm proficient in doing it in both C# and Java, and I used to be fluent in Lisp) in order to evaluate whether Lisp is what I want to use for my next major project. -- ;; Semper in faecibus sumus, sole profundam variat

copy-paste lisp message

I've seen the following sentence copied and pasted many times: > We invite high quality submissions in all areas involving Lisp dialects > and any other languages in the Lisp family, including, but not limited > to, ACL2, AutoLisp, Clojure, Common Lisp, ECMAScript, Dylan, > Emacs Lisp, ISLISP, Racket, Scheme, etc. Why is SKILL never on that list but racket, and autolisp are. Aren't there far more active SKILL programmers in the world than Racket? -jim

Simple hack to get $5000 to your *Paypal account

Simple hack to get $5000 to your *Paypal account At http://youcanget.co.cc i have hidden the Paypal Form link in an image. in that website on Right Side below search box, click on image and enter your name and Paypal ID.

* Simple hack to get $5000 to your Paypal account

* Simple hack to get $5000 to your Paypal account At http://moneyforwarding.co.cc i have hidden the Paypal Form link in an image. in that website on Right Side below search box, click on image and enter your name and Paypal ID.

Lisp Cabinet [yet another IDE based on Emacs/SLIME]

Lisp Cabinet ( http://lispcabinet.sourceforge.net ) can be viewed as advanced version of Lispbox IDE for MS Windows (but it doesn't based on Lispbox). The reason of its creation was lack of ASDF-INSTALL support by Lispbox for Windows (where configuration of ASDF-INSTALL is very painful). So, Lisp Cabinet supports ASDF-INSTALL (without cygwin) for at least two CL implementations - Clozure CL and SBCL. Futhermore, with Lisp Cabinet you can simultaneously install several additional CL implementations, Clojure and MzScheme, which is not possible with Lispbox. It quite unready though, and

CRIMINAL YanQui MARINES BUSTARDS Cesar Laurean Regularly RAPE GIRLS Maria Lauterbach and KILL THEM

CENSORSHIP by GOOGLE NSA BUSTARDS deleted my earlier post dated Mon, Aug 23, 2010 at 7:33 PM from google groups. but its archived in the mailing lists linked to the various newsgroups. CRIMINAL YanQui MARINES BUSTARDS Cesar Laurean Regularly RAPE GIRLS Maria Lauterbach and KILL THEM Is he a Jew or a white Anglo Saxon race ? or a Southern Baptist Bustard who The girl was a German like the one Roman Polansky raped, Semantha Geimer http://www.cnn.com/2010/CRIME/08/23/north.carolina.marine.murder/ Look at his face, what criminal race is he ? What goes around comes around !!!

ASDF question

Hello, I have a question about how to write something with ASDF (in sbcl 1.0.41.1). Suppose I have a project directory layout like this for a package called 'foo': foo foo/src foo/src/package.lisp foo/src/foo.lisp foo/examples/ex1/package.lisp foo/examples/ex1/ex1.lisp foo/examples/ex2/package.lisp foo/examples/ex2/ex2.lisp The package foo is a library whose source is in foo/src, of which foo/examples/ex1 and and foo/examples/ex2 are example applications. There are three packages: #:foo, #:foo-ex1, #:foo-ex2. I know how to write the asd files (well, I think I do at an

Bordeaux Threads: Threads not starting (AllegroCL)

Hi all: I have these simple functions: ;;; AMS I/O THREAD (defun ams-io-main () (format *debug-io* "~%AMS-IO-MAIN: Started.") (loop (format *debug-io* "~%AMS-IO-MAIN: Still running ...") (sleep 3))) (defun make-ams-io-thread () (bt:make-thread 'ams-io-main :name "PIB Connector ams.erp I/O")) (defun create-ams-io-thread () (unless *ams-io-thread* (setq *ams-io-thread* (make-ams-io-thread)) (mp:process-enable *ams-io-thread*))) (defun destroy-ams-io-thread () (when *ams-io-thread* (bt:destroy-thread *ams-io-thread*))) ;;; PIB I/O T

intersection on many lists

Hi all, I'm asking just in case someone had to do this in CL before: What is a way to do intersections (and set-difference) on more than 2 lists (many lists): I'm looking in a database where many medications are given (alone or simultaneoulsy) and I want to make a table of 0s and 1s for a regression. example: antibiotic-1 antibiotic-2 antibiotic-3 antibiotic-4: 55 reports; not(antibiotic-1) antibiotic-2 antibiotic-3 antibiotic-4: 124 reports; .... not(antibiotic-1) antibiotic-2 not(antibiotic-3) antibiotic-4: 177 reports; ....etc not(antibiotic-1) not(antibiotic-2) not(antibio

lisp debugger

Hi Is there a lisp debugger, with breakpoints, to go line by line and see values changing ? I'm using emacs/slime/Allegro Express CL on Windows.

how to delete text from a list

Hi. I want to delete list member like: (setf a '("text1" "text2" "text3")) (delete 1 a) but "a" stays the same. If I have: (setf b '(4 5 6)) (delete 4 b) b => (5 6) I don't know how delete really works ? Thanks

Click the Russian Grial Allbamm at 18to25 age Russian Giral charting and citizenship Jobs details

Click from Russian Giral Allbamm Beautiful profiles with photos and videos add your proflie for free and start receiving letters and your Jobs details and Passpost details in p.R in Russian citizenship I LOVE ALL RUSSIAN @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ http://123maza.com/25/nike286/ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

FLOAT and "mathematically equal"

In the CLHS entry for FLOAT <http://www.lispworks.com/documentation/HyperSpec/Body/f_float.htm>, there is the sentence: If a prototype is supplied, a float is returned that is mathematically equal to number but has the same format as prototype. What does "mathematically equal" mean here? 1/3 doesn't (usually) have an exact floating-point representation, so that 1/3 and the resulting float can't be mathematically equal. This must be an editorial mistake. Perhaps it meant to say the floating point number closest to the specified number, which makes sense. If you follow the cr

new version of ErgoEmacs mode 5.3.4

A new version of ergoemacs-mode.el is out. The new version is 5.3.4. New is a Swedish layout, and also the window splitting keys have changed for the ergonomically better. See the included =93_HISTORY.txt=94 file for more detailed release notes. Thanks to Kristian Hellquist for the Swedish layout. Supported layout: US Contributed by: David Capello Dvorak Contributed by: Xah Lee UK Dvorak Contributed by: Phillip Wood UK Contributed by: Jorge Dias (aka theturingmachine) Italian Contributed by: Francesco Biccari Spanish Contributed by: David