| blob | ae3c932a5086e0730142717560bd0bee184ce829 |
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))
85 b-%offset%)
86 zero)
87 label10))
88 label20))
107 b-%offset%)
108 (* alpha
112 b-%offset%)))
113 label30))))
124 b-%offset%)
125 (/
129 b-%offset%)
133 a-%offset%))))
135 ((> i
139 nil)
144 b-%offset%)
149 b-%offset%)
150 (*
154 b-%offset%)
158 a-%offset%))))
159 label40))))
160 label50))
161 label60)))
174 b-%offset%)
175 (* alpha
179 b-%offset%)))
180 label70))))
190 b-%offset%)
191 (/
195 b-%offset%)
199 a-%offset%))))
207 b-%offset%)
212 b-%offset%)
213 (*
217 b-%offset%)
221 a-%offset%))))
222 label80))))
223 label90))
224 label100)))))
235 (* alpha
239 b-%offset%)))
241 ((> k
245 nil)
249 (*
253 a-%offset%)
257 b-%offset%))))
258 label110))
261 (/ temp
265 a-%offset%))))
269 b-%offset%)
270 temp)
271 label120))
272 label130)))
282 (* alpha
286 b-%offset%)))
293 (*
297 a-%offset%)
301 b-%offset%))))
302 label140))
305 (/ temp
309 a-%offset%))))
313 b-%offset%)
314 temp)
315 label150))
316 label160)))))))
333 b-%offset%)
334 (* alpha
338 b-%offset%)))
339 label170))))
341 ((> k
344 nil)
354 b-%offset%)
359 b-%offset%)
360 (*
364 a-%offset%)
368 b-%offset%))))
369 label180))))
370 label190))
374 (/ one
378 a-%offset%)))
385 b-%offset%)
386 (* temp
390 b-%offset%)))
391 label200))))
392 label210)))
405 b-%offset%)
406 (* alpha
410 b-%offset%)))
411 label220))))
424 b-%offset%)
429 b-%offset%)
430 (*
434 a-%offset%)
438 b-%offset%))))
439 label230))))
440 label240))
444 (/ one
448 a-%offset%)))
455 b-%offset%)
456 (* temp
460 b-%offset%)))
461 label250))))
462 label260)))))
472 (/ one
476 a-%offset%)))
483 b-%offset%)
484 (* temp
488 b-%offset%)))
489 label270))))
491 ((> j
494 nil)
502 a-%offset%))
509 b-%offset%)
514 b-%offset%)
515 (* temp
519 b-%offset%))))
520 label280))))
521 label290))
530 b-%offset%)
531 (* alpha
535 b-%offset%)))
536 label300))))
537 label310)))
545 (/ one
549 a-%offset%)))
556 b-%offset%)
557 (* temp
561 b-%offset%)))
562 label320))))
573 a-%offset%))
580 b-%offset%)
585 b-%offset%)
586 (* temp
590 b-%offset%))))
591 label330))))
592 label340))
601 b-%offset%)
602 (* alpha
606 b-%offset%)))
607 label350))))
608 label360))))))))
610 end_label