From 27abfca66ef126a093dbae3e0082ff23a1431c39 Mon Sep 17 00:00:00 2001
From: jgarcia <jgarcia>
Date: Thu, 8 May 2008 07:31:34 +0000
Subject: [PATCH] Fixed typo.

---
 contrib/asdf/asdf-ecl.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/contrib/asdf/asdf-ecl.lisp b/contrib/asdf/asdf-ecl.lisp
index 5b23df3b6..5ad10c51a 100644
--- a/contrib/asdf/asdf-ecl.lisp
+++ b/contrib/asdf/asdf-ecl.lisp
@@ -65,7 +65,7 @@
   ((type :initform :dll)))
 
 (defclass program-op (monolithic-bundle-op)
-  ((type :initform :dll)))
+  ((type :initform :program)))
 
 (defmethod initialize-instance :after ((instance bundle-op) &rest initargs
 				       &key (name-suffix nil name-suffix-p)