| blob | 73bba343a50ed405cde3d0d51955e7d5d9398a26 |
1 ;;; Compiled by f2cl version:
2 ;;; ("f2cl1.l,v 2edcbd958861 2012/05/30 03:34:52 toy $"
3 ;;; "f2cl2.l,v 96616d88fb7e 2008/02/22 22:19:34 rtoy $"
4 ;;; "f2cl3.l,v 96616d88fb7e 2008/02/22 22:19:34 rtoy $"
5 ;;; "f2cl4.l,v 96616d88fb7e 2008/02/22 22:19:34 rtoy $"
6 ;;; "f2cl5.l,v 3fe93de3be82 2012/05/06 02:17:14 toy $"
7 ;;; "f2cl6.l,v 1d5cbacbb977 2008/08/24 00:56:27 rtoy $"
8 ;;; "macros.l,v 3fe93de3be82 2012/05/06 02:17:14 toy $")
10 ;;; Using Lisp CMU Common Lisp 20d (20D Unicode)
11 ;;;
12 ;;; Options: ((:prune-labels nil) (:auto-save t) (:relaxed-array-decls t)
13 ;;; (:coerce-assigns :as-needed) (:array-type ':array)
14 ;;; (:array-slicing t) (:declare-common nil)
15 ;;; (:float-format double-float))
61 incx)))))
70 incy)))))
85 (* alpha
90 y-%offset%))))
94 (* alpha
98 x-%offset%)))
102 ((> i
105 nil)
110 ap-%offset%)
111 (+
115 ap-%offset%)
116 (*
120 x-%offset%)
121 temp1)
122 (*
126 y-%offset%)
127 temp2)))
129 label10))
135 ap-%offset%)
137 (+
144 ap-%offset%))
146 (+
147 (*
151 x-%offset%)
152 temp1)
153 (*
157 y-%offset%)
158 temp2))))
166 ap-%offset%)
174 ap-%offset%))
177 label20)))
186 (* alpha
191 y-%offset%))))
195 (* alpha
199 x-%offset%)))
204 ((> k
206 j
208 nil)
213 ap-%offset%)
214 (+
218 ap-%offset%)
219 (*
223 x-%offset%)
224 temp1)
225 (*
229 y-%offset%)
230 temp2)))
233 label30))
239 ap-%offset%)
241 (+
248 ap-%offset%))
250 (+
251 (*
255 x-%offset%)
256 temp1)
257 (*
261 y-%offset%)
262 temp2))))
270 ap-%offset%)
278 ap-%offset%))
283 label40)))))
294 (* alpha
299 y-%offset%))))
303 (* alpha
307 x-%offset%)))
311 (+
316 ap-%offset%))
318 (+
319 (*
323 x-%offset%)
324 temp1)
325 (*
329 y-%offset%)
330 temp2))))
340 ap-%offset%)
341 (+
345 ap-%offset%)
346 (*
350 x-%offset%)
351 temp1)
352 (*
356 y-%offset%)
357 temp2)))
359 label50)))
367 ap-%offset%))
373 label60)))
382 (* alpha
387 y-%offset%))))
391 (* alpha
395 x-%offset%)))
399 (+
404 ap-%offset%))
406 (+
407 (*
411 x-%offset%)
412 temp1)
413 (*
417 y-%offset%)
418 temp2))))
424 ((> k
426 n
428 nil)
435 ap-%offset%)
436 (+
440 ap-%offset%)
441 (*
445 x-%offset%)
446 temp1)
447 (*
451 y-%offset%)
452 temp2)))
453 label70)))
461 ap-%offset%))
469 label80))))))
471 end_label