From c592d7100b95124e6042563fc20d66a2966f3267 Mon Sep 17 00:00:00 2001
From: "Paul Buetow (pluto.buetow.org)" <paul@buetow.org>
Date: Sat, 28 Sep 2013 17:05:48 +0200
Subject: foo

---
 .../content/Better-Than-Others.sub/Lisp.xml        | 22 ----------------------
 1 file changed, 22 deletions(-)
 delete mode 100644 perl9.buetow.org/content/Better-Than-Others.sub/Lisp.xml

(limited to 'perl9.buetow.org/content/Better-Than-Others.sub/Lisp.xml')

diff --git a/perl9.buetow.org/content/Better-Than-Others.sub/Lisp.xml b/perl9.buetow.org/content/Better-Than-Others.sub/Lisp.xml
deleted file mode 100644
index d0e0b27..0000000
--- a/perl9.buetow.org/content/Better-Than-Others.sub/Lisp.xml
+++ /dev/null
@@ -1,22 +0,0 @@
-<?xml version="1.0" encoding="ISO-8859-1" standalone="yes" ?>
-<content>
-  <pagetitle>Common Lisp users will love Perl 9!</pagetitle>
-  <text>Lisp users will love Perl 9 because you can use paranthesis everywhere!</text>
-  <code>
-(for (set (range 0 (subtract (elems @bar) 1)) $i)
-	(do
-		(set $foo (elem @foo $i))
-		(set $bar (elem @bar $i))
-		(set $baz (elem @baz $i))
-		(for (set (range 0 (subtract (elems (ptr $bar)) 1)) $j)
-			(do
-				(set $foo_ (elem (ptr $foo) $j))
-				(set $bar_ (elem (ptr $bar) $j))
-				(set $baz_ (elem (ptr $baz) $j))
-				(for (set (range 0 (subtract (elems (ptr $bar_)) 1)) $k)
-					(push (ptr $baz_) 
-						(add 
-							(elem (ptr $foo_) $k)
-							(elem (ptr $bar_) $k))))))))
-  </code>
-</content>
-- 
cgit v1.2.3