LispForum

Can anyone help me with this question?

Thanks!

I just couldn't get it. Here is a simple example and it complains about illegal lambda expression (unknown lisp) or illegal function call (sbcl).

(defvar a 3)
(defvar b 5)
(if (not (equal a b)) ((format t "not equal~%") (setq a 6) (setq b 10)))


Thanks!

The varlist is the same structure as mylist.

Thanks, everyone!

Here is a little example I ran on sbcl.

* (equal (list 1 2) (rplacd (list 1 1) 2))
* NIL

* (rplacd (list 1 1) 2)
* (1 . 2)

What I want is after value reset the evaluation of equal returns T. How can I achive that?

I have create an associate list mylist (list (list :a a) (list :b b) (list :c c)) later I need to check if the list contains an entry which has same value as a variable specified and if it does, then I want to delete the entry. First I used member and it returned nil, why? (dolist (myvar varlist) (i...

If I have a associate list ((:a a) (:b b) (:c c)), how can I set b to (:b z)?

Can you tell me different ways to do it?

Thanks!!

That's not what I wanted!!!


Good grief!

Hello! Can anyone help me? I don't know how to format string outputs so each column would be aligned up. Right now my output looks ugly. I used ~t to space out but it didn't seem to work. What I want will look like: abcdefg heck dseg I don't know how to do it hello, there Good grief

Thanks, Calibraxis,

I knew the code you gave to me is working. But I can't use "loop for/with " style. When I tried my code, sbcl complained about illegal function call at the setf line and I have no idea why.

(defun string-split (split-pattern string)
(let ((n 0) (l (length split-pattern)))
(loop
(setf pos (search split-pattern string :start2 n))
(if pos ((collect (subseq string n pos)) (setf n (+ pos l)))
)
(collect (subseq string n)))
)
)