Lines Matching +defs:nth +defs:value
44 (defun second (a) (nth 1 a))
45 (defun third (a) (nth 2 a))
46 (defun fourth (a) (nth 3 a))
47 (defun fifth (a) (nth 4 a))
48 (defun sixth (a) (nth 5 a))
49 (defun seventh (a) (nth 6 a))
50 (defun eighth (a) (nth 7 a))
51 (defun ninth (a) (nth 8 a))
52 (defun tenth (a) (nth 9 a))
105 (defsetf car (list) (value) `(progn (rplaca ,list ,value) ,value))
106 (defsetf cdr (list) (value) `(progn (rplacd ,list ,value) ,value))
108 (defsetf caar (list) (value) `(progn (rplaca (car ,list) ,value) ,value))
109 (defsetf cadr (list) (value) `(progn (rplaca (cdr ,list) ,value) ,value))
110 (defsetf cdar (list) (value) `(progn (rplacd (car ,list) ,value) ,value))
111 (defsetf cddr (list) (value) `(progn (rplacd (cdr ,list) ,value) ,value))
112 (defsetf caaar (list) (value) `(progn (rplaca (caar ,list) ,value) ,value))
113 (defsetf caadr (list) (value) `(progn (rplaca (cadr ,list) ,value) ,value))
114 (defsetf cadar (list) (value) `(progn (rplaca (cdar ,list) ,value) ,value))
115 (defsetf caddr (list) (value) `(progn (rplaca (cddr ,list) ,value) ,value))
116 (defsetf cdaar (list) (value) `(progn (rplacd (caar ,list) ,value) ,value))
117 (defsetf cdadr (list) (value) `(progn (rplacd (cadr ,list) ,value) ,value))
118 (defsetf cddar (list) (value) `(progn (rplacd (cdar ,list) ,value) ,value))
119 (defsetf cdddr (list) (value) `(progn (rplacd (cddr ,list) ,value) ,value))
120 (defsetf caaaar (list) (value) `(progn (rplaca (caaar ,list) ,value) ,value))
121 (defsetf caaadr (list) (value) `(progn (rplaca (caadr ,list) ,value) ,value))
122 (defsetf caadar (list) (value) `(progn (rplaca (cadar ,list) ,value) ,value))
123 (defsetf caaddr (list) (value) `(progn (rplaca (caddr ,list) ,value) ,value))
124 (defsetf cadaar (list) (value) `(progn (rplaca (cdaar ,list) ,value) ,value))
125 (defsetf cadadr (list) (value) `(progn (rplaca (cdadr ,list) ,value) ,value))
126 (defsetf caddar (list) (value) `(progn (rplaca (cddar ,list) ,value) ,value))
127 (defsetf cadddr (list) (value) `(progn (rplaca (cdddr ,list) ,value) ,value))
128 (defsetf cdaaar (list) (value) `(progn (rplacd (caaar ,list) ,value) ,value))
129 (defsetf cdaadr (list) (value) `(progn (rplacd (caadr ,list) ,value) ,value))
130 (defsetf cdadar (list) (value) `(progn (rplacd (cadar ,list) ,value) ,value))
131 (defsetf cdaddr (list) (value) `(progn (rplacd (caddr ,list) ,value) ,value))
132 (defsetf cddaar (list) (value) `(progn (rplacd (cdaar ,list) ,value) ,value))
133 (defsetf cddadr (list) (value) `(progn (rplacd (cdadr ,list) ,value) ,value))
134 (defsetf cdddar (list) (value) `(progn (rplacd (cddar ,list) ,value) ,value))
135 (defsetf cddddr (list) (value) `(progn (rplacd (cdddr ,list) ,value) ,value))
137 (defsetf first (list) (value) `(progn (rplaca ,list ,value) ,value))
138 (defsetf second (list) (value) `(progn (rplaca (nthcdr 1 ,list) ,value) ,value))
139 (defsetf third (list) (value) `(progn (rplaca (nthcdr 2 ,list) ,value) ,value))
140 (defsetf fourth (list) (value) `(progn (rplaca (nthcdr 3 ,list) ,value) ,value))
141 (defsetf fifth (list) (value) `(progn (rplaca (nthcdr 4 ,list) ,value) ,value))
142 (defsetf sixth (list) (value) `(progn (rplaca (nthcdr 5 ,list) ,value) ,value))
143 (defsetf seventh (list) (value) `(progn (rplaca (nthcdr 6 ,list) ,value) ,value))
144 (defsetf eighth (list) (value) `(progn (rplaca (nthcdr 7 ,list) ,value) ,value))
145 (defsetf ninth (list) (value) `(progn (rplaca (nthcdr 8 ,list) ,value) ,value))
146 (defsetf tenth (list) (value) `(progn (rplaca (nthcdr 9 ,list) ,value) ,value))
148 (defsetf rest (list) (value) `(progn (rplacd ,list ,value) ,value))
150 (defun lisp::nth-store (index list value)
151 (rplaca (nthcdr index list) value) value)
152 (defsetf nth lisp::nth-store)
154 (defsetf aref (array &rest indices) (value)
155 `(lisp::vector-store ,array ,@indices ,value))
157 (defsetf get (symbol key &optional default) (value)
158 `(lisp::put ,symbol ,key ,value))
162 (defsetf gethash (key hash-table &optional default) (value)
163 `(lisp::puthash ,key ,hash-table ,value))
171 (defsetf symbol-value set)
173 (defsetf subseq (sequence start &optional end) (value)
174 `(progn (replace ,sequence ,value :start1 ,start :end1 ,end) ,value))